Add a test for the fixes on this branch.
[sqlite.git] / test / stmt.test
blob138ce19860e8ddab7342bcfc3b81f0eb66c9e819
1 # 2010 February 18
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 # The tests in this file check that SQLite uses (or does not use) a
13 # statement journal for various SQL statements.
16 set testdir [file dirname $argv0]
17 source $testdir/tester.tcl
19 if {[atomic_batch_write test.db]} {
20   finish_test
21   return
24 do_test stmt-1.1 {
25   execsql { CREATE TABLE t1(a integer primary key, b INTEGER NOT NULL) }
26 } {}
28 # The following tests verify the method used for the tests in this file -
29 # that if a statement journal is required by a statement it is opened and
30 # remains open until the current transaction is committed or rolled back.
32 # This only work if SQLITE_TEMP_STORE!=3
34 if {$::TEMP_STORE==3} {
35   finish_test
36   return
38 do_test stmt-1.2 {
39   set sqlite_open_file_count
40 } {1}
41 do_test stmt-1.3 {
42   execsql {
43     PRAGMA temp_store = file;
44     BEGIN;
45       INSERT INTO t1 VALUES(1, 1);
46   }
47   set sqlite_open_file_count
48 } {2}
49 do_test stmt-1.4 {
50   execsql {
51     INSERT INTO t1 SELECT a+1, b+1 FROM t1;
52   }
53   set sqlite_open_file_count
54   # 2016-03-04: statement-journal open deferred
55 } {2}
56 do_test stmt-1.5 {
57   execsql COMMIT
58   set sqlite_open_file_count
59 } {1}
60 do_test stmt-1.6.1 {
61   execsql {
62     BEGIN;
63       INSERT INTO t1 SELECT a+2, b+2 FROM t1;
64   }
65   set sqlite_open_file_count
66 } {2}
67 do_test stmt-1.6.2 {
68   execsql { INSERT INTO t1 SELECT a+4, b+4 FROM t1 }
69   set sqlite_open_file_count
70   # 2016-03-04: statement-journal open deferred
71 } {2}
72 do_test stmt-1.7 {
73   execsql COMMIT
74   set sqlite_open_file_count
75 } {1}
78 proc filecount {testname sql expected} {
79   uplevel [list do_test $testname [subst -nocommand {
80     execsql BEGIN
81     execsql { $sql }
82     set ret [set sqlite_open_file_count]
83     execsql ROLLBACK
84     set ret
85   }] $expected]
88 filecount stmt-2.1 { INSERT INTO t1 VALUES(9, 9)  } 2
89 filecount stmt-2.2 { REPLACE INTO t1 VALUES(9, 9) } 2
90 filecount stmt-2.3 { INSERT INTO t1 SELECT 9, 9   } 2
91 filecount stmt-2.4 { 
92     INSERT INTO t1 SELECT 9, 9;
93     INSERT INTO t1 SELECT 10, 10;
94 } 2
96 do_test stmt-2.5 {
97   execsql { CREATE INDEX i1 ON t1(b) }
98 } {}
99 filecount stmt-2.6 { 
100   REPLACE INTO t1 VALUES(5, 5);
101   REPLACE INTO t1 VALUES(5, 5); 
102 } 2
104 finish_test