wasCSharpSQLite – Blame information for rev 7
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 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 |