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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | a8b921d45ec9ef4d16ef7b5bf09aabaf02ebc70b |
| User & Date: | danielk1977 2005-01-29 09:00:49 |
Context
|
2005-01-29
| ||
| 09:14 | Update to test files to support builds with OMIT macros defined. (CVS 2289) check-in: 808e16a7 user: danielk1977 tags: trunk | |
| 09:00 | Fix a test bug causing a segfault in bind.test. (CVS 2288) check-in: a8b921d4 user: danielk1977 tags: trunk | |
| 08:36 | Update ioerr.test to be more deterministic. (CVS 2287) check-in: d0b16bae user: danielk1977 tags: trunk | |
Changes
Changes to test/bind.test.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 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 400 401 ... 441 442 443 444 445 446 447 448 449 450 451 452 453 454 |
# 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.28 2005/01/29 08:32:46 danielk1977 Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl proc sqlite_step {stmt N VALS COLS} { upvar VALS vals ................................................................................ } SQLITE_OK do_test bind-9.7 { execsql {SELECT * FROM t2} } {1 999 1000 1001 {} {}} ifcapable {tclvar} { do_test bind-10.1 { catch {sqlite3_finalize $VM} 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 { catch {sqlite3_finalize $VM} 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 ................................................................................ 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 { |
| < < > |
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 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 ... 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 |
# 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 ................................................................................ } 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 ................................................................................ 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 { |