OLD | NEW |
1 # 2011 May 19 | 1 # 2011 May 19 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
11 # This file implements regression tests for SQLite library. Specifically, | 11 # This file implements regression tests for SQLite library. Specifically, |
12 # it tests that ticket [2d1a5c67dfc2363e44f29d9bbd57f7331851390a] has | 12 # it tests that ticket [2d1a5c67dfc2363e44f29d9bbd57f7331851390a] has |
13 # been resolved. | 13 # been resolved. |
14 # | 14 # |
15 # | 15 # |
16 # | 16 # |
17 | 17 |
18 set testdir [file dirname $argv0] | 18 set testdir [file dirname $argv0] |
19 source $testdir/tester.tcl | 19 source $testdir/tester.tcl |
20 set testprefix tkt-2d1a5c67d | 20 set testprefix tkt-2d1a5c67d |
21 | 21 |
22 ifcapable {!wal || !vtab} {finish_test; return} | 22 ifcapable {!vtab} {finish_test; return} |
| 23 if {[wal_is_capable]==0} {finish_test; return} |
23 | 24 |
24 for {set ii 1} {$ii<=10} {incr ii} { | 25 for {set ii 1} {$ii<=10} {incr ii} { |
25 do_test tkt-2d1a5c67d.1.$ii { | 26 do_test tkt-2d1a5c67d.1.$ii { |
26 db close | 27 db close |
27 forcedelete test.db test.db-wal | 28 forcedelete test.db test.db-wal |
28 sqlite3 db test.db | 29 sqlite3 db test.db |
29 db eval "PRAGMA cache_size=$::ii" | 30 db eval "PRAGMA cache_size=$::ii" |
30 db eval { | 31 db eval { |
31 PRAGMA journal_mode=WAL; | 32 PRAGMA journal_mode=WAL; |
32 CREATE TABLE t1(a,b); | 33 CREATE TABLE t1(a,b); |
(...skipping 85 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
118 # | 119 # |
119 forcedelete test.db2-wal test.db2 | 120 forcedelete test.db2-wal test.db2 |
120 do_test 3.6 { | 121 do_test 3.6 { |
121 copy_file test.db-wal test.db2-wal | 122 copy_file test.db-wal test.db2-wal |
122 copy_file test.db test.db2 | 123 copy_file test.db test.db2 |
123 sqlite3 db2 test.db2 | 124 sqlite3 db2 test.db2 |
124 execsql { SELECT * FROM t4 WHERE a = 'xyz' } db2 | 125 execsql { SELECT * FROM t4 WHERE a = 'xyz' } db2 |
125 } {xyz} | 126 } {xyz} |
126 | 127 |
127 finish_test | 128 finish_test |
OLD | NEW |