Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix a test bug causing a segfault in bind.test. (CVS 2288) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
a8b921d45ec9ef4d16ef7b5bf09aabaf |
User & Date: | danielk1977 2005-01-29 09:00:49.000 |
Context
2005-01-29
| ||
09:14 | Update to test files to support builds with OMIT macros defined. (CVS 2289) (check-in: 808e16a7dd user: danielk1977 tags: trunk) | |
09:00 | Fix a test bug causing a segfault in bind.test. (CVS 2288) (check-in: a8b921d45e user: danielk1977 tags: trunk) | |
08:36 | Update ioerr.test to be more deterministic. (CVS 2287) (check-in: d0b16bae65 user: danielk1977 tags: trunk) | |
Changes
Changes to test/bind.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # 2003 September 6 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. The # focus of this script testing the sqlite_bind API. # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # 2003 September 6 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. The # focus of this script testing the sqlite_bind API. # # $Id: bind.test,v 1.29 2005/01/29 09:00:49 danielk1977 Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl proc sqlite_step {stmt N VALS COLS} { upvar VALS vals |
︙ | ︙ | |||
374 375 376 377 378 379 380 | } SQLITE_OK do_test bind-9.7 { execsql {SELECT * FROM t2} } {1 999 1000 1001 {} {}} ifcapable {tclvar} { do_test bind-10.1 { | < < | 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 | } SQLITE_OK do_test bind-9.7 { execsql {SELECT * FROM t2} } {1 999 1000 1001 {} {}} ifcapable {tclvar} { do_test bind-10.1 { set VM [ sqlite3_prepare $DB { INSERT INTO t2(a,b,c,d,e,f) VALUES(:abc,$abc,:abc,$ab,$abc,:abc) } -1 TAIL ] sqlite3_bind_parameter_count $VM } 3 set v1 {$abc} set v2 {$ab} } ifcapable {!tclvar} { do_test bind-10.1 { set VM [ sqlite3_prepare $DB { INSERT INTO t2(a,b,c,d,e,f) VALUES(:abc,:xyz,:abc,:xy,:xyz,:abc) } -1 TAIL ] sqlite3_bind_parameter_count $VM } 3 |
︙ | ︙ | |||
441 442 443 444 445 446 447 448 449 450 451 452 453 454 | sqlite3_bind_int $VM 1 1 } msg] lappend rc $msg } {1 {}} do_test bind-10.9 { sqlite3_finalize $VM } SQLITE_OK do_test bind-10.10 { execsql {SELECT * FROM t2} } {1 999 1000 1001 {} {} 1 2 1 3 2 1} # Ticket #918 # do_test bind-10.11 { | > | 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 | sqlite3_bind_int $VM 1 1 } msg] lappend rc $msg } {1 {}} do_test bind-10.9 { sqlite3_finalize $VM } SQLITE_OK breakpoint do_test bind-10.10 { execsql {SELECT * FROM t2} } {1 999 1000 1001 {} {} 1 2 1 3 2 1} # Ticket #918 # do_test bind-10.11 { |
︙ | ︙ |