Annotation of embedaddon/sqlite3/test/savepoint2.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: savepoint2.test,v 1.5 2009/06/05 17:09:12 drh Exp $
! 13:
! 14: set testdir [file dirname $argv0]
! 15: source $testdir/tester.tcl
! 16:
! 17:
! 18: # Tests in this file are quite similar to those run by trans.test and
! 19: # avtrans.test.
! 20: #
! 21:
! 22: proc signature {} {
! 23: return [db eval {SELECT count(*), md5sum(x) FROM t3}]
! 24: }
! 25:
! 26: do_test savepoint2-1 {
! 27: wal_set_journal_mode
! 28: execsql {
! 29: PRAGMA cache_size=10;
! 30: BEGIN;
! 31: CREATE TABLE t3(x TEXT);
! 32: INSERT INTO t3 VALUES(randstr(10,400));
! 33: INSERT INTO t3 VALUES(randstr(10,400));
! 34: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 35: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 36: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 37: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 38: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 39: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 40: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 41: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 42: INSERT INTO t3 SELECT randstr(10,400) FROM t3;
! 43: COMMIT;
! 44: SELECT count(*) FROM t3;
! 45: }
! 46: } {1024}
! 47: wal_check_journal_mode savepoint2-1.1
! 48:
! 49: unset -nocomplain ::sig
! 50: unset -nocomplain SQL
! 51:
! 52: set iterations 20
! 53:
! 54: set SQL(1) {
! 55: DELETE FROM t3 WHERE random()%10!=0;
! 56: INSERT INTO t3 SELECT randstr(10,10)||x FROM t3;
! 57: INSERT INTO t3 SELECT randstr(10,10)||x FROM t3;
! 58: }
! 59: set SQL(2) {
! 60: DELETE FROM t3 WHERE random()%10!=0;
! 61: INSERT INTO t3 SELECT randstr(10,10)||x FROM t3;
! 62: DELETE FROM t3 WHERE random()%10!=0;
! 63: INSERT INTO t3 SELECT randstr(10,10)||x FROM t3;
! 64: }
! 65: set SQL(3) {
! 66: UPDATE t3 SET x = randstr(10, 400) WHERE random()%10;
! 67: INSERT INTO t3 SELECT x FROM t3 WHERE random()%10;
! 68: DELETE FROM t3 WHERE random()%10;
! 69: }
! 70: set SQL(4) {
! 71: INSERT INTO t3 SELECT randstr(10,400) FROM t3 WHERE (random()%10 == 0);
! 72: }
! 73:
! 74:
! 75:
! 76: for {set ii 2} {$ii < ($iterations+2)} {incr ii} {
! 77:
! 78: # Record the database signature. Optionally (every second run) open a
! 79: # transaction. In all cases open savepoint "one", which may or may
! 80: # not be a transaction savepoint, depending on whether or not a real
! 81: # transaction has been opened.
! 82: #
! 83: do_test savepoint2-$ii.1 {
! 84: if {$ii % 2} { execsql BEGIN }
! 85: set ::sig(one) [signature]
! 86: execsql "SAVEPOINT one"
! 87: } {}
! 88:
! 89: # Execute some SQL on the database. Then rollback to savepoint "one".
! 90: # Check that the database signature is as it was when "one" was opened.
! 91: #
! 92: do_test savepoint2-$ii.2 {
! 93: execsql $SQL(1)
! 94: execsql "ROLLBACK to one"
! 95: signature
! 96: } $::sig(one)
! 97: integrity_check savepoint2-$ii.2.1
! 98:
! 99: # Execute some SQL. Then open savepoint "two". Savepoint "two" is therefore
! 100: # nested in savepoint "one".
! 101: #
! 102: do_test savepoint2-$ii.3 {
! 103: execsql $SQL(1)
! 104: set ::sig(two) [signature]
! 105: execsql "SAVEPOINT two"
! 106: } {}
! 107:
! 108: # More SQL changes. The rollback to savepoint "two". Check that the
! 109: # signature is as it was when savepoint "two" was opened.
! 110: #
! 111: do_test savepoint2-$ii.4 {
! 112: execsql $SQL(2)
! 113: execsql "ROLLBACK to two"
! 114: signature
! 115: } $::sig(two)
! 116: integrity_check savepoint2-$ii.4.1
! 117:
! 118: # More SQL changes. The rollback to savepoint "two". Check that the
! 119: # signature is as it was when savepoint "two" was opened.
! 120: #
! 121: do_test savepoint2-$ii.5 {
! 122: execsql $SQL(2)
! 123: execsql "SAVEPOINT three"
! 124: execsql $SQL(3)
! 125: execsql "RELEASE three"
! 126: execsql "ROLLBACK to one"
! 127: signature
! 128: } $::sig(one)
! 129:
! 130: # By this point the database is in the same state as it was at the
! 131: # top of the for{} loop (everything having been rolled back by the
! 132: # "ROLLBACK TO one" command above). So make a few changes to the
! 133: # database and COMMIT the open transaction, so that the next iteration
! 134: # of the for{} loop works on a different dataset.
! 135: #
! 136: # The transaction being committed here may have been opened normally using
! 137: # "BEGIN", or may have been opened using a transaction savepoint created
! 138: # by the "SAVEPOINT one" statement.
! 139: #
! 140: do_test savepoint2-$ii.6 {
! 141: execsql $SQL(4)
! 142: execsql COMMIT
! 143: sqlite3_get_autocommit db
! 144: } {1}
! 145: integrity_check savepoint2-$ii.6.1
! 146:
! 147: # Check that the connection is still running in WAL mode.
! 148: wal_check_journal_mode savepoint2-$ii.7
! 149: }
! 150:
! 151: unset -nocomplain ::sig
! 152: unset -nocomplain SQL
! 153:
! 154: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to savepoint2.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