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
22 INSERT INTO t1 VALUES('one');
23 INSERT INTO t1 VALUES('two');
24 INSERT INTO t1 VALUES('three');
29 set DB [sqlite3_open test.db]
34 set DB [sqlite3_open test.db]
35 set STMT [sqlite3_prepare $DB "SELECT * FROM t1" -1 dummy]
39 sqlite3_finalize $STMT
43 set DB [sqlite3_open test.db]
44 set STMT [sqlite3_prepare $DB "SELECT * FROM t1" -1 dummy]
50 sqlite3_column_text $STMT 0
54 sqlite3_finalize $STMT
58 set DB [sqlite3_open test.db]
59 set STMT [sqlite3_prepare $DB "SELECT * FROM t1" -1 dummy]
65 list [sqlite3_step $STMT] [sqlite3_column_text $STMT 0]
70 sqlite3_prepare $DB "SELECT * FROM sqlite_master" -1 dummy
72 } {1 {(21) library routine called out of sequence}}
75 sqlite3_finalize $STMT