Annotation of embedaddon/sqlite3/test/incrvacuum_ioerr.test, revision 1.1.1.1
1.1 misho 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: forcedelete 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>