1# 2017 March 02 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# 12 13if {![info exists testdir]} { 14 set testdir [file join [file dirname [info script]] .. .. test] 15} 16source $testdir/tester.tcl 17set ::testprefix rbucrash2 18 19db close 20forcedelete test.db-oal rbu.db 21sqlite3_shutdown 22sqlite3_config_uri 1 23reset_db 24 25# Set up a target database and an rbu update database. The target 26# db is the usual "test.db", the rbu db is "test.db2". 27# 28forcedelete test.db2 29do_execsql_test 1.0 { 30 CREATE TABLE t1(a, b, c, PRIMARY KEY(a), UNIQUE(b)); 31 INSERT INTO t1 VALUES(1, 2, 3); 32 INSERT INTO t1 VALUES(4, 5, 6); 33 INSERT INTO t1 VALUES(7, 8, 9); 34 35 ATTACH 'test.db2' AS rbu; 36 CREATE TABLE rbu.data_t1(a, b, c, rbu_control); 37 INSERT INTO data_t1 VALUES('one', randomblob(3500), NULL, 0); 38 INSERT INTO data_t1 VALUES('two', randomblob(3500), NULL, 0); 39 INSERT INTO data_t1 VALUES('three', randomblob(3500), NULL, 0); 40 INSERT INTO data_t1 VALUES('four', randomblob(3500), NULL, 0); 41 INSERT INTO data_t1 VALUES('five', randomblob(3500), NULL, 0); 42 INSERT INTO data_t1 VALUES('six', randomblob(3500), NULL, 0); 43} 44db_save_and_close 45 46proc do_rbu_crash_test2 {tn script} { 47 48 foreach {f blksz} { 49 test.db 512 50 test.db2 512 51 test.db 4096 52 test.db2 4096 53 } { 54 set bDone 0 55 for {set iDelay 1} {$bDone==0} {incr iDelay} { 56 forcedelete test.db2 test.db2-journal test.db test.db-oal test.db-wal 57 db_restore 58 59 set res [ 60 crashsql -file $f -delay $iDelay -tclbody $script -dflt 1 -opendb {} \ 61 -blocksize $blksz {} 62 ] 63 64 set bDone 1 65 if {$res == "1 {child process exited abnormally}"} { 66 set bDone 0 67 } elseif {$res != "0 {}"} { 68 error "unexected catchsql result: $res" 69 } 70 71 sqlite3rbu rbu test.db test.db2 72 while {[rbu step]=="SQLITE_OK"} {} 73 rbu close 74 75 sqlite3 db test.db 76 do_execsql_test $tn.delay=$iDelay.f=$f.blksz=$blksz { 77 PRAGMA integrity_check; 78 } {ok} 79 db close 80 } 81 } 82} 83 84for {set x 1} {$x < 10} {incr x} { 85 do_rbu_crash_test2 1.$x { 86 sqlite3rbu rbu test.db test.db2 87 while {[rbu step]=="SQLITE_OK"} { 88 rbu savestate 89 } 90 rbu close 91 } 92} 93 94for {set x 1} {$x < 2} {incr x} { 95 do_rbu_crash_test2 2.$x { 96 sqlite3rbu rbu test.db test.db2 97 while {[rbu step]=="SQLITE_OK"} { 98 rbu close 99 sqlite3rbu rbu test.db test.db2 100 } 101 rbu close 102 } 103} 104 105finish_test 106