Annotation of embedaddon/sqlite3/test/savepoint4.test, revision 1.1
1.1 ! misho 1: # 2008 December 15
! 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: # $Id: savepoint4.test,v 1.7 2009/06/09 15:25:33 danielk1977 Exp $
! 13:
! 14: set testdir [file dirname $argv0]
! 15: source $testdir/tester.tcl
! 16:
! 17: ifcapable !crashtest {
! 18: finish_test
! 19: return
! 20: }
! 21:
! 22: proc signature {} {
! 23: return [db eval {SELECT count(*), md5sum(x) FROM t1}]
! 24: }
! 25:
! 26: set ITERATIONS 25 ;# Number of iterations for savepoint4-1
! 27: set ITERATIONS2 13 ;# Number of iterations for savepoint4-2
! 28: expr srand(0)
! 29:
! 30: do_test savepoint4-1 {
! 31: execsql {
! 32: PRAGMA cache_size=10;
! 33: BEGIN;
! 34: CREATE TABLE t1(x TEXT);
! 35: INSERT INTO t1 VALUES(randstr(10,400));
! 36: INSERT INTO t1 VALUES(randstr(10,400));
! 37: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 38: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 39: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 40: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 41: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 42: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 43: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 44: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 45: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 46: COMMIT;
! 47: SELECT count(*) FROM t1;
! 48: }
! 49: } {1024}
! 50:
! 51:
! 52: unset -nocomplain ::sig
! 53:
! 54: for {set ii 1} {$ii<=$ITERATIONS} {incr ii} {
! 55: set ::sig [signature]
! 56:
! 57: for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} {
! 58:
! 59: do_test savepoint4-1.$ii.1.$iDelay {
! 60: set ret [crashsql -delay $iDelay -file test.db-journal {
! 61: PRAGMA cache_size = 20;
! 62: SAVEPOINT one;
! 63: DELETE FROM t1 WHERE random()%2==0;
! 64: SAVEPOINT two;
! 65: INSERT INTO t1 SELECT randstr(10,10)||x FROM t1;
! 66: ROLLBACK TO two;
! 67: UPDATE t1 SET x = randstr(10, 400) WHERE random()%10;
! 68: RELEASE two;
! 69: ROLLBACK TO one;
! 70: RELEASE one;
! 71: }]
! 72: signature
! 73: } $::sig
! 74:
! 75: set crashed [lindex $ret 0]
! 76: integrity_check savepoint4-1.$ii.1.$iDelay.integrity
! 77: }
! 78:
! 79: do_test savepoint4-1.$ii.2 {
! 80: execsql {
! 81: DELETE FROM t1 WHERE random()%10==0;
! 82: INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0;
! 83: }
! 84: } {}
! 85: }
! 86:
! 87: do_test savepoint4-2 {
! 88: execsql {
! 89: PRAGMA cache_size=10;
! 90: DROP TABLE IF EXISTS t1;
! 91: BEGIN;
! 92: CREATE TABLE t1(x TEXT);
! 93: CREATE INDEX i1 ON t1(x);
! 94: INSERT INTO t1 VALUES(randstr(10,400));
! 95: INSERT INTO t1 VALUES(randstr(10,400));
! 96: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 97: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 98: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 99: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 100: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 101: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 102: INSERT INTO t1 SELECT randstr(10,400) FROM t1;
! 103: COMMIT;
! 104: SELECT count(*) FROM t1;
! 105: }
! 106: } {256}
! 107:
! 108: for {set ii 1} {$ii<=$ITERATIONS2} {incr ii} {
! 109: set ::sig [signature]
! 110: set file test.db-journal
! 111:
! 112: for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} {
! 113:
! 114: do_test savepoint4-2.$ii.1.$iDelay {
! 115:
! 116: set ret [crashsql -delay $iDelay -file $file {
! 117: SAVEPOINT one;
! 118: INSERT INTO t1 SELECT * FROM t1 WHERE rowid<50;
! 119: ROLLBACK TO one;
! 120: INSERT INTO t1 SELECT * FROM t1 WHERE rowid<50;
! 121: SAVEPOINT two;
! 122: DELETE FROM t1 WHERE (random()%10)==0;
! 123: SAVEPOINT three;
! 124: DELETE FROM t1 WHERE (random()%10)==0;
! 125: SAVEPOINT four;
! 126: DELETE FROM t1 WHERE (random()%10)==0;
! 127: RELEASE two;
! 128:
! 129: SAVEPOINT three;
! 130: UPDATE t1 SET x = substr(x||x, 12, 100000) WHERE (rowid%12)==0;
! 131: SAVEPOINT four;
! 132: UPDATE t1 SET x = substr(x||x, 14, 100000) WHERE (rowid%14)==0;
! 133: ROLLBACK TO three;
! 134: UPDATE t1 SET x = substr(x||x, 13, 100000) WHERE (rowid%13)==0;
! 135: RELEASE three;
! 136:
! 137: DELETE FROM t1 WHERE rowid > (
! 138: SELECT rowid FROM t1 ORDER BY rowid ASC LIMIT 1 OFFSET 256
! 139: );
! 140: RELEASE one;
! 141: }]
! 142:
! 143: set crashed [lindex $ret 0]
! 144: if {$crashed} {
! 145: signature
! 146: } else {
! 147: set ::sig
! 148: }
! 149: } $::sig
! 150:
! 151: integrity_check savepoint4-2.$ii.1.$iDelay.integrity
! 152:
! 153: if {$crashed == 0 && $file == "test.db-journal"} {
! 154: set crashed 1
! 155: set iDelay 0
! 156: set file test.db
! 157: set ::sig [signature]
! 158: }
! 159: }
! 160:
! 161: do_test savepoint4-2.$ii.2 {
! 162: execsql {
! 163: DELETE FROM t1 WHERE random()%10==0;
! 164: INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0;
! 165: }
! 166: } {}
! 167: }
! 168:
! 169: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to savepoint4.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test