Annotation of embedaddon/sqlite3/test/progress.test, revision 1.1.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