Return to walslow.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

sqlite3

    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:   forcedelete 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:       forcedelete testX.db testX.db-wal
   57:       copy_file test.db testX.db
   58:       copy_file 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