Merge Chromium + Blink git repositories
[chromium-blink-merge.git] / third_party / sqlite / sqlite-src-3080704 / test / wal6.test
blob2498907ea908549f9ecc636b0ba1ba3170565fa3
1 # 2010 December 1
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 #***********************************************************************
11 # This file implements regression tests for SQLite library.  The
12 # focus of this file is testing the operation of the library in
13 # "PRAGMA journal_mode=WAL" mode.
16 set testdir [file dirname $argv0]
17 set testprefix wal6
18 source $testdir/tester.tcl
19 source $testdir/lock_common.tcl
20 source $testdir/wal_common.tcl
21 source $testdir/malloc_common.tcl
22 ifcapable !wal {finish_test ; return }
24 #-------------------------------------------------------------------------
25 # Changing to WAL mode in one connection forces the change in others.
27 db close
28 forcedelete test.db
30 set all_journal_modes {delete persist truncate memory off}
31 foreach jmode $all_journal_modes {
33   do_test wal6-1.0.$jmode {
34     sqlite3 db test.db
35     execsql "PRAGMA journal_mode = $jmode;"
36   } $jmode
38   do_test wal6-1.1.$jmode {
39     execsql {
40       CREATE TABLE t1(a INTEGER PRIMARY KEY, b);
41       INSERT INTO t1 VALUES(1,2);
42       SELECT * FROM t1;
43     }
44   } {1 2}
46 # Under Windows, you'll get an error trying to delete
47 # a file this is already opened.  Close the first connection
48 # so the other tests work.
49 if {$tcl_platform(platform)=="windows"} {
50   if {$jmode=="persist" || $jmode=="truncate"} {
51     db close
52   }
55   do_test wal6-1.2.$jmode {
56     sqlite3 db2 test.db
57     execsql {
58     PRAGMA journal_mode=WAL;
59     INSERT INTO t1 VALUES(3,4);
60     SELECT * FROM t1 ORDER BY a;
61     } db2
62   } {wal 1 2 3 4}
64 if {$tcl_platform(platform)=="windows"} {
65   if {$jmode=="persist" || $jmode=="truncate"} {
66     sqlite3 db test.db
67   }
70   do_test wal6-1.3.$jmode {
71     execsql {
72       SELECT * FROM t1 ORDER BY a;
73     }
74   } {1 2 3 4}
76   db close
77   db2 close
78   forcedelete test.db
82 #-------------------------------------------------------------------------
83 # Test that SQLITE_BUSY_SNAPSHOT is returned as expected.
85 reset_db
86 sqlite3 db2 test.db
88 do_execsql_test 2.1 {
89   PRAGMA journal_mode = WAL;
90   CREATE TABLE t1(a PRIMARY KEY, b TEXT);
91   INSERT INTO t1 VALUES(1, 'one');
92   INSERT INTO t1 VALUES(2, 'two');
93   BEGIN;
94     SELECT * FROM t1;
95 } {wal 1 one 2 two}
97 do_test 2.2 {
98   execsql {
99     SELECT * FROM t1;
100     INSERT INTO t1 VALUES(3, 'three');
101   } db2
102 } {1 one 2 two}
104 do_catchsql_test 2.3 { 
105   INSERT INTO t1 VALUES('x', 'x') 
106 } {1 {database is locked}}
108 do_test 2.4 { 
109   list [sqlite3_errcode db] [sqlite3_extended_errcode db]
110 } {SQLITE_BUSY SQLITE_BUSY_SNAPSHOT}
112 do_execsql_test 2.5 {
113   SELECT * FROM t1;
114   COMMIT;
115   INSERT INTO t1 VALUES('x', 'x') 
116 } {1 one 2 two}
118 proc test3 {prefix} {
119   do_test $prefix.1 {
120     execsql { SELECT count(*) FROM t1 } 
121   } {0}
122   do_test $prefix.2 {
123     execsql { INSERT INTO t1 VALUES('x', 'x') } db2
124   } {}
125   do_test $prefix.3 {
126     execsql { INSERT INTO t1 VALUES('y', 'y') }
127   } {}
128   do_test $prefix.4 {
129     execsql { SELECT count(*) FROM t1 } 
130   } {2}
133 do_execsql_test 2.6.1 { DELETE FROM t1 }
134 test3 2.6.2
136 db func test3 test3
137 do_execsql_test 2.6.3 { DELETE FROM t1 }
138 db eval {SELECT test3('2.6.4')}
140 do_test 2.x {
141   db2 close
142 } {}
144 #-------------------------------------------------------------------------
145 # Check that if BEGIN IMMEDIATE fails, it does not leave the user with
146 # an open read-transaction (unless one was already open before the BEGIN 
147 # IMMEDIATE). Even if there are other active VMs.
150 proc test4 {prefix} {
151   do_test $prefix.1 {
152     catchsql { BEGIN IMMEDIATE }
153   } {1 {database is locked}}
155   do_test $prefix.2 {
156     execsql { COMMIT } db2
157   } {}
159   do_test $prefix.3 {
160     execsql { BEGIN IMMEDIATE }
161   } {}
162   do_test $prefix.4 {
163     execsql { COMMIT }
164   } {}
167 reset_db
168 sqlite3 db2 test.db
169 do_execsql_test 3.1 { 
170   PRAGMA journal_mode = WAL;
171   CREATE TABLE ab(a PRIMARY KEY, b);
172 } {wal}
174 do_test 3.2.1 { 
175   execsql { 
176     BEGIN;
177       INSERT INTO ab VALUES(1, 2);
178   } db2
179 } {}
180 test4 3.2.2
182 db func test4 test4
183 do_test 3.3.1 {
184   execsql { 
185     BEGIN;
186       INSERT INTO ab VALUES(3, 4);
187   } db2
188 } {}
190 db eval {SELECT test4('3.3.2')}
192 do_test 3.x {
193   db2 close
194 } {}
196 finish_test