1 # 2010 March 17 2 # 3 # The author disclaims copyright to this source code. In place of 4 # a legal notice, here is a blessing: 5 # 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. 9 # 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. The tests in this file use 14 # brute force methods, so may take a while to run. 15 # 16 17 set testdir [file dirname $argv0] 18 source $testdir/tester.tcl 19 20 ifcapable !wal {finish_test ; return } 21 22 proc reopen_db {} { 23 catch { db close } 24 file delete -force test.db test.db-wal 25 sqlite3 db test.db 26 execsql { PRAGMA journal_mode = wal } 27 } 28 29 db close 30 save_prng_state 31 for {set seed 1} {$seed<10} {incr seed} { 32 expr srand($seed) 33 restore_prng_state 34 reopen_db 35 do_test walslow-1.seed=$seed.0 { 36 execsql { CREATE TABLE t1(a, b) } 37 execsql { CREATE INDEX i1 ON t1(a) } 38 execsql { CREATE INDEX i2 ON t1(b) } 39 } {} 40 41 for {set iTest 1} {$iTest < 100} {incr iTest} { 42 43 do_test walslow-1.seed=$seed.$iTest.1 { 44 set w [expr int(rand()*2000)] 45 set x [expr int(rand()*2000)] 46 execsql { INSERT INTO t1 VALUES(randomblob($w), randomblob($x)) } 47 execsql { PRAGMA integrity_check } 48 } {ok} 49 50 do_test walslow-1.seed=$seed.$iTest.2 { 51 execsql "PRAGMA wal_checkpoint;" 52 execsql { PRAGMA integrity_check } 53 } {ok} 54 55 do_test walslow-1.seed=$seed.$iTest.3 { 56 file delete -force testX.db testX.db-wal 57 file copy test.db testX.db 58 file copy test.db-wal testX.db-wal 59 60 sqlite3 db2 testX.db 61 execsql { PRAGMA journal_mode = WAL } db2 62 execsql { PRAGMA integrity_check } db2 63 } {ok} 64 65 do_test walslow-1.seed=$seed.$iTest.4 { 66 execsql { SELECT count(*) FROM t1 WHERE a!=b } db2 67 } [execsql { SELECT count(*) FROM t1 WHERE a!=b }] 68 db2 close 69 } 70 } 71 72 73 finish_test 74
