# 2008 June 18 # # 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. # # This file is devoted to testing the sqlite3_next_stmt interface. # # $Id: capi3d.test,v 1.2 2008/07/14 15:11:20 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl # Create N prepared statements against database connection db # and return a list of all the generated prepared statements. # proc make_prepared_statements {N} { set plist {} for {set i 0} {$i<$N} {incr i} { set sql "SELECT $i FROM sqlite_master WHERE name LIKE '%$i%'" if {rand()<0.33} { set s [sqlite3_prepare_v2 db $sql -1 notused] } else { ifcapable utf16 { if {rand()<0.5} { set sql [encoding convertto unicode $sql]\x00\x00 set s [sqlite3_prepare16 db $sql -1 notused] } else { set s [sqlite3_prepare db $sql -1 notused] } } ifcapable !utf16 { set s [sqlite3_prepare db $sql -1 notused] } } lappend plist $s } return $plist } # Scramble the $inlist into a random order. # proc scramble {inlist} { set y {} foreach x $inlist { lappend y [list [expr {rand()}] $x] } set y [lsort $y] set outlist {} foreach x $y { lappend outlist [lindex $x 1] } return $outlist } # Database initially has no prepared statements. # do_test capi3d-1.1 { db cache flush sqlite3_next_stmt db 0 } {} # Run the following tests for between 1 and 100 prepared statements. # for {set i 1} {$i<=100} {incr i} { set stmtlist [make_prepared_statements $i] do_test capi3d-1.2.$i.1 { set p [sqlite3_next_stmt db 0] set x {} while {$p!=""} { lappend x $p set p [sqlite3_next_stmt db $p] } lsort $x } [lsort $stmtlist] do_test capi3-1.2.$i.2 { foreach p [scramble $::stmtlist] { sqlite3_finalize $p } sqlite3_next_stmt db 0 } {} } finish_test