OLD | NEW |
| (Empty) |
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: savepoint3.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 source $testdir/malloc_common.tcl | |
18 | |
19 do_malloc_test savepoint3-1 -sqlprep { | |
20 CREATE TABLE t1(a, b, c); | |
21 INSERT INTO t1 VALUES(1, 2, 3); | |
22 } -sqlbody { | |
23 SAVEPOINT one; | |
24 INSERT INTO t1 VALUES(4, 5, 6); | |
25 SAVEPOINT two; | |
26 DELETE FROM t1; | |
27 ROLLBACK TO two; | |
28 RELEASE one; | |
29 } | |
30 | |
31 do_malloc_test savepoint3-2 -sqlprep { | |
32 PRAGMA cache_size = 10; | |
33 CREATE TABLE t1(a, b, c); | |
34 INSERT INTO t1 VALUES(randstr(400,400), randstr(400,400), randstr(400,400)); | |
35 INSERT INTO t1 SELECT | |
36 randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
37 INSERT INTO t1 | |
38 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
39 INSERT INTO t1 | |
40 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
41 INSERT INTO t1 | |
42 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
43 INSERT INTO t1 | |
44 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
45 INSERT INTO t1 | |
46 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
47 INSERT INTO t1 | |
48 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
49 INSERT INTO t1 | |
50 SELECT randstr(400,400), randstr(400,400), randstr(400,400) FROM t1; | |
51 } -sqlbody { | |
52 PRAGMA cache_size = 10; | |
53 SAVEPOINT one; | |
54 DELETE FROM t1 WHERE rowid < 5; | |
55 SAVEPOINT two; | |
56 DELETE FROM t1 WHERE rowid > 10; | |
57 ROLLBACK TO two; | |
58 ROLLBACK TO one; | |
59 RELEASE one; | |
60 } | |
61 | |
62 do_ioerr_test savepoint3.3 -sqlprep { | |
63 CREATE TABLE t1(a, b, c); | |
64 INSERT INTO t1 VALUES(1, randstr(1000,1000), randstr(1000,1000)); | |
65 INSERT INTO t1 VALUES(2, randstr(1000,1000), randstr(1000,1000)); | |
66 } -sqlbody { | |
67 BEGIN; | |
68 UPDATE t1 SET a = 3 WHERE a = 1; | |
69 SAVEPOINT one; | |
70 UPDATE t1 SET a = 4 WHERE a = 2; | |
71 COMMIT; | |
72 } -cleanup { | |
73 db eval { | |
74 SAVEPOINT one; | |
75 RELEASE one; | |
76 } | |
77 } | |
78 | |
79 # The following test does a really big savepoint rollback. One involving | |
80 # more than 4000 pages. The idea is to get a specific sqlite3BitvecSet() | |
81 # operation in pagerPlaybackSavepoint() to fail. | |
82 #do_malloc_test savepoint3-4 -sqlprep { | |
83 # BEGIN; | |
84 # CREATE TABLE t1(a, b); | |
85 # CREATE INDEX i1 ON t1(a); | |
86 # CREATE INDEX i2 ON t1(b); | |
87 # INSERT INTO t1 VALUES(randstr(500,500), randstr(500,500)); -- 1 | |
88 # INSERT INTO t1 VALUES(randstr(500,500), randstr(500,500)); -- 2 | |
89 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 4 | |
90 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 8 | |
91 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 16 | |
92 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 32 | |
93 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 64 | |
94 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 128 | |
95 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 256 | |
96 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 512 | |
97 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 1024 | |
98 # INSERT INTO t1 SELECT randstr(500,500), randstr(500,500) FROM t1; -- 2048 | |
99 # COMMIT; | |
100 # BEGIN; | |
101 # SAVEPOINT abc; | |
102 # UPDATE t1 SET a = randstr(500,500); | |
103 #} -sqlbody { | |
104 # ROLLBACK TO abc; | |
105 #} | |
106 | |
107 | |
108 # Cause a specific malloc in savepoint rollback code to fail. | |
109 # | |
110 do_malloc_test savepoint3-4 -start 7 -sqlprep { | |
111 PRAGMA auto_vacuum = incremental; | |
112 PRAGMA cache_size = 1000; | |
113 | |
114 CREATE TABLE t1(a, b); | |
115 CREATE TABLE t2(a, b); | |
116 CREATE TABLE t3(a, b); | |
117 INSERT INTO t1 VALUES(1, randstr(500,500)); | |
118 INSERT INTO t1 VALUES(2, randstr(500,500)); | |
119 INSERT INTO t1 VALUES(3, randstr(500,500)); | |
120 DELETE FROM t1; | |
121 | |
122 BEGIN; | |
123 INSERT INTO t1 VALUES(1, randstr(500,500)); | |
124 INSERT INTO t1 VALUES(2, randstr(500,500)); | |
125 INSERT INTO t1 VALUES(3, randstr(500,500)); | |
126 DROP TABLE t3; -- Page 5 of the database file is now free. | |
127 DROP TABLE t2; -- Page 4 of the database file is now free. | |
128 | |
129 SAVEPOINT abc; | |
130 PRAGMA incremental_vacuum; | |
131 } -sqlbody { | |
132 ROLLBACK TO abc; | |
133 } | |
134 | |
135 | |
136 finish_test | |
OLD | NEW |