Return to walslow.test CVS log

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

Annotation of embedaddon/sqlite3/test/walslow.test, revision 1.1

1.1     ! misho       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