3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
6 # May you do good and not evil.
7 # May you find forgiveness for yourself and forgive others.
8 # May you share freely, never taking more than you give.
10 #***********************************************************************
12 # Test some specific circumstances to do with shared cache mode.
16 set testdir [file dirname $argv0]
17 source $testdir/tester.tcl
18 set ::testprefix close
20 # This module bypasses the "-key" logic in tester.tcl, so it cannot run
21 # with the codec enabled.
26 INSERT INTO t1 VALUES('one');
27 INSERT INTO t1 VALUES('two');
28 INSERT INTO t1 VALUES('three');
33 set DB [sqlite3_open test.db]
38 set DB [sqlite3_open test.db]
39 set STMT [sqlite3_prepare $DB "SELECT * FROM t1" -1 dummy]
43 sqlite3_finalize $STMT
47 set DB [sqlite3_open test.db]
48 set STMT [sqlite3_prepare $DB "SELECT * FROM t1" -1 dummy]
54 sqlite3_column_text $STMT 0
58 sqlite3_finalize $STMT
62 set DB [sqlite3_open test.db]
63 set STMT [sqlite3_prepare $DB "SELECT * FROM t1" -1 dummy]
69 list [sqlite3_step $STMT] [sqlite3_column_text $STMT 0]
74 sqlite3_prepare $DB "SELECT * FROM sqlite_master" -1 dummy
76 } {1 {(21) bad parameter or other API misuse}}
79 sqlite3_finalize $STMT