Annotation of embedaddon/sqlite3/test/progress.test, revision 1.1
1.1 ! misho 1: # 2001 September 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: # This file implements regression tests for SQLite library. The
! 12: # focus of this file is testing the 'progress callback'.
! 13: #
! 14: # $Id: progress.test,v 1.8 2007/06/15 14:53:53 danielk1977 Exp $
! 15:
! 16: set testdir [file dirname $argv0]
! 17: source $testdir/tester.tcl
! 18:
! 19: # If the progress callback is not available in this build, skip this
! 20: # whole file.
! 21: ifcapable !progress {
! 22: finish_test
! 23: return
! 24: }
! 25:
! 26: # Build some test data
! 27: #
! 28: execsql {
! 29: BEGIN;
! 30: CREATE TABLE t1(a);
! 31: INSERT INTO t1 VALUES(1);
! 32: INSERT INTO t1 VALUES(2);
! 33: INSERT INTO t1 VALUES(3);
! 34: INSERT INTO t1 VALUES(4);
! 35: INSERT INTO t1 VALUES(5);
! 36: INSERT INTO t1 VALUES(6);
! 37: INSERT INTO t1 VALUES(7);
! 38: INSERT INTO t1 VALUES(8);
! 39: INSERT INTO t1 VALUES(9);
! 40: INSERT INTO t1 VALUES(10);
! 41: COMMIT;
! 42: }
! 43:
! 44:
! 45: # Test that the progress callback is invoked.
! 46: do_test progress-1.0 {
! 47: set counter 0
! 48: db progress 1 "[namespace code {incr counter}] ; expr 0"
! 49: execsql {
! 50: SELECT * FROM t1
! 51: }
! 52: expr $counter > 1
! 53: } 1
! 54: do_test progress-1.0.1 {
! 55: db progress
! 56: } {::namespace inscope :: {incr counter} ; expr 0}
! 57: do_test progress-1.0.2 {
! 58: set v [catch {db progress xyz bogus} msg]
! 59: lappend v $msg
! 60: } {1 {expected integer but got "xyz"}}
! 61:
! 62: # Test that the query is abandoned when the progress callback returns non-zero
! 63: do_test progress-1.1 {
! 64: set counter 0
! 65: db progress 1 "[namespace code {incr counter}] ; expr 1"
! 66: set rc [catch {execsql {
! 67: SELECT * FROM t1
! 68: }}]
! 69: list $counter $rc
! 70: } {1 1}
! 71:
! 72: # Test that the query is rolled back when the progress callback returns
! 73: # non-zero.
! 74: do_test progress-1.2 {
! 75:
! 76: # This figures out how many opcodes it takes to copy 5 extra rows into t1.
! 77: db progress 1 "[namespace code {incr five_rows}] ; expr 0"
! 78: set five_rows 0
! 79: execsql {
! 80: INSERT INTO t1 SELECT a+10 FROM t1 WHERE a < 6
! 81: }
! 82: db progress 0 ""
! 83: execsql {
! 84: DELETE FROM t1 WHERE a > 10
! 85: }
! 86:
! 87: # Now set up the progress callback to abandon the query after the number of
! 88: # opcodes to copy 5 rows. That way, when we try to copy 6 rows, we know
! 89: # some data will have been inserted into the table by the time the progress
! 90: # callback abandons the query.
! 91: db progress $five_rows "expr 1"
! 92: catchsql {
! 93: INSERT INTO t1 SELECT a+10 FROM t1 WHERE a < 9
! 94: }
! 95: execsql {
! 96: SELECT count(*) FROM t1
! 97: }
! 98: } 10
! 99:
! 100: # Test that an active transaction remains active and not rolled back
! 101: # after the progress query abandons a query.
! 102: #
! 103: # UPDATE: It is now recognised that this is a sure route to database
! 104: # corruption. So the transaction is rolled back.
! 105: do_test progress-1.3 {
! 106:
! 107: db progress 0 ""
! 108: execsql BEGIN
! 109: execsql {
! 110: INSERT INTO t1 VALUES(11)
! 111: }
! 112: db progress 1 "expr 1"
! 113: catchsql {
! 114: INSERT INTO t1 VALUES(12)
! 115: }
! 116: db progress 0 ""
! 117: catchsql COMMIT
! 118: } {1 {cannot commit - no transaction is active}}
! 119: do_test progress-1.3.1 {
! 120: execsql {
! 121: SELECT count(*) FROM t1
! 122: }
! 123: } 10
! 124:
! 125: # Check that a value of 0 for N means no progress callback
! 126: do_test progress-1.4 {
! 127: set counter 0
! 128: db progress 0 "[namespace code {incr counter}] ; expr 0"
! 129: execsql {
! 130: SELECT * FROM t1;
! 131: }
! 132: set counter
! 133: } 0
! 134:
! 135: db progress 0 ""
! 136:
! 137: # Make sure other queries can be run from within the progress
! 138: # handler. Ticket #1827
! 139: #
! 140: do_test progress-1.5 {
! 141: set rx 0
! 142: proc set_rx {args} {
! 143: db progress 0 {}
! 144: set ::rx [db eval {SELECT count(*) FROM t1}]
! 145: return [expr 0]
! 146: }
! 147: db progress 10 set_rx
! 148: db eval {
! 149: SELECT sum(a) FROM t1
! 150: }
! 151: } {55}
! 152: do_test progress-1.6 {
! 153: set ::rx
! 154: } {10}
! 155:
! 156: # Check that abandoning a query using the progress handler does
! 157: # not cause other queries to abort. Ticket #2415.
! 158: do_test progress-1.7 {
! 159: execsql {
! 160: CREATE TABLE abc(a, b, c);
! 161: INSERT INTO abc VALUES(1, 2, 3);
! 162: INSERT INTO abc VALUES(4, 5, 6);
! 163: INSERT INTO abc VALUES(7, 8, 9);
! 164: }
! 165:
! 166: set ::res [list]
! 167: db eval {SELECT a, b, c FROM abc} {
! 168: lappend ::res $a $b $c
! 169: db progress 10 "expr 1"
! 170: catch {db eval {SELECT a, b, c FROM abc} { }} msg
! 171: lappend ::res $msg
! 172: }
! 173:
! 174: set ::res
! 175: } {1 2 3 interrupted 4 5 6 interrupted 7 8 9 interrupted}
! 176:
! 177: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to progress.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