|
1 # 2001 October 12 |
|
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 for correct handling of I/O errors |
|
13 # such as writes failing because the disk is full. |
|
14 # |
|
15 # The tests in this file use special facilities that are only |
|
16 # available in the SQLite test fixture. |
|
17 # |
|
18 # $Id: incrvacuum_ioerr.test,v 1.6 2008/07/12 14:52:20 drh Exp $ |
|
19 |
|
20 set testdir [file dirname $argv0] |
|
21 source $testdir/tester.tcl |
|
22 |
|
23 # If this build of the library does not support auto-vacuum, omit this |
|
24 # whole file. |
|
25 ifcapable {!autovacuum} { |
|
26 finish_test |
|
27 return |
|
28 } |
|
29 |
|
30 do_ioerr_test incrvacuum-ioerr-1 -cksum 1 -sqlprep { |
|
31 PRAGMA auto_vacuum = 'incremental'; |
|
32 CREATE TABLE abc(a); |
|
33 INSERT INTO abc VALUES(randstr(1500,1500)); |
|
34 } -sqlbody { |
|
35 BEGIN; |
|
36 CREATE TABLE abc2(a); |
|
37 DELETE FROM abc; |
|
38 PRAGMA incremental_vacuum; |
|
39 COMMIT; |
|
40 } |
|
41 |
|
42 # do_ioerr_test incrvacuum-ioerr-3 -start 1 -cksum 1 -tclprep { |
|
43 # db eval { |
|
44 # PRAGMA auto_vacuum = 'full'; |
|
45 # PRAGMA cache_size = 10; |
|
46 # BEGIN; |
|
47 # CREATE TABLE abc(a, UNIQUE(a)); |
|
48 # } |
|
49 # for {set ii 0} {$ii < 25} {incr ii} { |
|
50 # db eval {INSERT INTO abc VALUES(randstr(1500,1500))} |
|
51 # } |
|
52 # db eval COMMIT |
|
53 # } -sqlbody { |
|
54 # BEGIN; |
|
55 # DELETE FROM abc WHERE (oid%3)==0; |
|
56 # INSERT INTO abc SELECT a || '1234567890' FROM abc WHERE oid%2; |
|
57 # CREATE INDEX abc_i ON abc(a); |
|
58 # DELETE FROM abc WHERE (oid%2)==0; |
|
59 # DROP INDEX abc_i; |
|
60 # COMMIT; |
|
61 # } |
|
62 |
|
63 do_ioerr_test incrvacuum-ioerr-2 -start 1 -cksum 1 -tclprep { |
|
64 db eval { |
|
65 PRAGMA auto_vacuum = 'full'; |
|
66 PRAGMA cache_size = 10; |
|
67 BEGIN; |
|
68 CREATE TABLE abc(a, UNIQUE(a)); |
|
69 } |
|
70 for {set ii 0} {$ii < 25} {incr ii} { |
|
71 db eval {INSERT INTO abc VALUES(randstr(1500,1500))} |
|
72 } |
|
73 db eval COMMIT |
|
74 } -sqlbody { |
|
75 BEGIN; |
|
76 PRAGMA incremental_vacuum; |
|
77 DELETE FROM abc WHERE (oid%3)==0; |
|
78 PRAGMA incremental_vacuum; |
|
79 INSERT INTO abc SELECT a || '1234567890' FROM abc WHERE oid%2; |
|
80 PRAGMA incremental_vacuum; |
|
81 CREATE INDEX abc_i ON abc(a); |
|
82 DELETE FROM abc WHERE (oid%2)==0; |
|
83 PRAGMA incremental_vacuum; |
|
84 DROP INDEX abc_i; |
|
85 PRAGMA incremental_vacuum; |
|
86 COMMIT; |
|
87 } |
|
88 |
|
89 do_ioerr_test incrvacuum-ioerr-3 -start 1 -cksum 1 -tclprep { |
|
90 db eval { |
|
91 PRAGMA auto_vacuum = 'incremental'; |
|
92 BEGIN; |
|
93 CREATE TABLE a(i integer, b blob); |
|
94 INSERT INTO a VALUES(1, randstr(1500,1500)); |
|
95 INSERT INTO a VALUES(2, randstr(1500,1500)); |
|
96 } |
|
97 db eval COMMIT |
|
98 db eval {DELETE FROM a WHERE oid} |
|
99 } -sqlbody { |
|
100 PRAGMA incremental_vacuum(5); |
|
101 } -cleanup { |
|
102 sqlite3 db test.db |
|
103 integrity_check incrvacuum-ioerr-2.$n.integritycheck |
|
104 db close |
|
105 } |
|
106 |
|
107 |
|
108 ifcapable shared_cache { |
|
109 |
|
110 catch { db close } |
|
111 file delete -force test.db |
|
112 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] |
|
113 |
|
114 # Create two connections to a single shared-cache: |
|
115 # |
|
116 sqlite3 db1 test.db |
|
117 sqlite3 db2 test.db |
|
118 |
|
119 # Create a database with around 20 free pages. |
|
120 # |
|
121 do_test incrvacuum-ioerr-4.0 { |
|
122 execsql { |
|
123 PRAGMA page_size = 1024; |
|
124 PRAGMA locking_mode = exclusive; |
|
125 PRAGMA auto_vacuum = 'incremental'; |
|
126 BEGIN; |
|
127 CREATE TABLE a(i integer, b blob); |
|
128 } db1 |
|
129 for {set ii 0} {$ii < 20} {incr ii} { |
|
130 execsql { INSERT INTO a VALUES($ii, randstr(800,1500)); } db1 |
|
131 } |
|
132 execsql COMMIT db1 |
|
133 execsql {DELETE FROM a WHERE oid} db1 |
|
134 } {} |
|
135 |
|
136 set ::rc 1 |
|
137 for {set iTest 1} {$::rc && $iTest<2000} {incr iTest} { |
|
138 |
|
139 # Figure out how big the database is and how many free pages it |
|
140 # has before running incremental-vacuum. |
|
141 # |
|
142 set nPage [expr {[file size test.db]/1024}] |
|
143 set nFree [execsql {pragma freelist_count} db1] |
|
144 |
|
145 # Now run incremental-vacuum to vacuum 5 pages from the db file. |
|
146 # The iTest'th I/O call is set to fail. |
|
147 # |
|
148 set ::sqlite_io_error_pending $iTest |
|
149 set ::sqlite_io_error_persist 1 |
|
150 do_test incrvacuum-ioerr-4.$iTest.1 { |
|
151 set ::rc [catch {execsql {pragma incremental_vacuum(5)} db1} msg] |
|
152 expr {$::rc==0 || $msg eq "disk I/O error"} |
|
153 } {1} |
|
154 |
|
155 set ::sqlite_io_error_pending 0 |
|
156 set ::sqlite_io_error_persist 0 |
|
157 set ::sqlite_io_error_hit 0 |
|
158 set ::sqlite_io_error_hardhit 0 |
|
159 |
|
160 set nFree2 [execsql {pragma freelist_count} db1] |
|
161 set nPage2 [expr {[file size test.db]/1024}] |
|
162 |
|
163 do_test incrvacuum-ioerr-4.$iTest.2 { |
|
164 set shrink [expr {$nPage-$nPage2}] |
|
165 expr {$shrink==0 || $shrink==5} |
|
166 } {1} |
|
167 |
|
168 do_test incrvacuum-ioerr-4.$iTest.3 { |
|
169 expr {$nPage - $nPage2} |
|
170 } [expr {$nFree - $nFree2}] |
|
171 } |
|
172 |
|
173 # Close the two database connections and restore the default |
|
174 # shared-cache mode setting. |
|
175 # |
|
176 db1 close |
|
177 db2 close |
|
178 sqlite3_enable_shared_cache $::enable_shared_cache |
|
179 } |
|
180 |
|
181 finish_test |