# 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 and # sqlite3_stmt_readonly and sqlite3_stmt_busy interfaces. # # $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 } {} } # Tests for the is-read-only interface. # proc test_is_readonly {testname sql truth} { do_test $testname [format { set DB [sqlite3_connection_pointer db] set STMT [sqlite3_prepare $DB {%s} -1 TAIL] set rc [sqlite3_stmt_readonly $STMT] sqlite3_finalize $STMT set rc } $sql] $truth } test_is_readonly capi3d-2.1 {SELECT * FROM sqlite_master} 1 test_is_readonly capi3d-2.2 {CREATE TABLE t1(x)} 0 db eval {CREATE TABLE t1(x)} test_is_readonly capi3d-2.3 {INSERT INTO t1 VALUES(5)} 0 test_is_readonly capi3d-2.4 {UPDATE t1 SET x=x+1 WHERE x<0} 0 test_is_readonly capi3d-2.5 {SELECT * FROM t1} 1 ifcapable wal { test_is_readonly capi3d-2.6 {PRAGMA journal_mode=WAL} 0 test_is_readonly capi3d-2.7 {PRAGMA wal_checkpoint} 0 } test_is_readonly capi3d-2.8 {PRAGMA application_id=1234} 0 test_is_readonly capi3d-2.9 {VACUUM} 0 test_is_readonly capi3d-2.10 {PRAGMA integrity_check} 1 do_test capi3-2.99 { sqlite3_stmt_readonly 0 } 1 # Tests for sqlite3_stmt_busy # do_test capi3d-3.1 { db eval {INSERT INTO t1 VALUES(6); INSERT INTO t1 VALUES(7);} set STMT [sqlite3_prepare db {SELECT * FROM t1} -1 TAIL] sqlite3_stmt_busy $STMT } {0} do_test capi3d-3.2 { sqlite3_step $STMT sqlite3_stmt_busy $STMT } {1} do_test capi3d-3.3 { sqlite3_step $STMT sqlite3_stmt_busy $STMT } {1} do_test capi3d-3.4 { sqlite3_reset $STMT sqlite3_stmt_busy $STMT } {0} do_test capi3d-3.99 { sqlite3_finalize $STMT sqlite3_stmt_busy 0 } {0} #-------------------------------------------------------------------------- # Test the sqlite3_stmt_busy() function with ROLLBACK statements. # reset_db do_execsql_test capi3d-4.1 { CREATE TABLE t4(x,y); BEGIN; } do_test capi3d-4.2.1 { breakpoint set ::s1 [sqlite3_prepare_v2 db "ROLLBACK" -1 notused] sqlite3_step $::s1 } {SQLITE_DONE} do_test capi3d-4.2.2 { sqlite3_stmt_busy $::s1 } {1} do_catchsql_test capi3d-4.2.3 { VACUUM } {1 {cannot VACUUM - SQL statements in progress}} do_test capi3d-4.2.4 { sqlite3_reset $::s1 } {SQLITE_OK} do_catchsql_test capi3d-4.2.5 { VACUUM } {0 {}} do_test capi3d-4.2.6 { sqlite3_finalize $::s1 } {SQLITE_OK} finish_test