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 182
