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: ioerr.test,v 1.33 2007/10/09 08:29:32 danielk1977 Exp $ 19 20set testdir [file dirname $argv0] 21source $testdir/tester.tcl 22 23 24# If SQLITE_DEFAULT_AUTOVACUUM is set to true, then a simulated IO error 25# on the 8th IO operation in the SQL script below doesn't report an error. 26# 27# This is because the 8th IO call attempts to read page 2 of the database 28# file when the file on disk is only 1 page. The pager layer detects that 29# this has happened and suppresses the error returned by the OS layer. 30# 31do_ioerr_test ioerr-1 -erc 1 -sqlprep { 32 SELECT * FROM sqlite_master; 33} -sqlbody { 34 CREATE TABLE t1(a,b,c); 35 SELECT * FROM sqlite_master; 36 BEGIN TRANSACTION; 37 INSERT INTO t1 VALUES(1,2,3); 38 INSERT INTO t1 VALUES(4,5,6); 39 ROLLBACK; 40 SELECT * FROM t1; 41 BEGIN TRANSACTION; 42 INSERT INTO t1 VALUES(1,2,3); 43 INSERT INTO t1 VALUES(4,5,6); 44 COMMIT; 45 SELECT * FROM t1; 46 DELETE FROM t1 WHERE a<100; 47} -exclude [expr [string match [execsql {pragma auto_vacuum}] 1] ? 4 : 0] 48 49# Test for IO errors during a VACUUM. 50# 51# The first IO call is excluded from the test. This call attempts to read 52# the file-header of the temporary database used by VACUUM. Since the 53# database doesn't exist at that point, the IO error is not detected. 54# 55# Additionally, if auto-vacuum is enabled, the 12th IO error is not 56# detected. Same reason as the 8th in the test case above. 57# 58ifcapable vacuum { 59 do_ioerr_test ioerr-2 -cksum true -sqlprep { 60 BEGIN; 61 CREATE TABLE t1(a, b, c); 62 INSERT INTO t1 VALUES(1, randstr(50,50), randstr(50,50)); 63 INSERT INTO t1 SELECT a+2, b||'-'||rowid, c||'-'||rowid FROM t1; 64 INSERT INTO t1 SELECT a+4, b||'-'||rowid, c||'-'||rowid FROM t1; 65 INSERT INTO t1 SELECT a+8, b||'-'||rowid, c||'-'||rowid FROM t1; 66 INSERT INTO t1 SELECT a+16, b||'-'||rowid, c||'-'||rowid FROM t1; 67 INSERT INTO t1 SELECT a+32, b||'-'||rowid, c||'-'||rowid FROM t1; 68 INSERT INTO t1 SELECT a+64, b||'-'||rowid, c||'-'||rowid FROM t1; 69 INSERT INTO t1 SELECT a+128, b||'-'||rowid, c||'-'||rowid FROM t1; 70 INSERT INTO t1 VALUES(1, randstr(600,600), randstr(600,600)); 71 CREATE TABLE t2 AS SELECT * FROM t1; 72 CREATE TABLE t3 AS SELECT * FROM t1; 73 COMMIT; 74 DROP TABLE t2; 75 } -sqlbody { 76 VACUUM; 77 } -exclude [list \ 78 1 [expr [string match [execsql {pragma auto_vacuum}] 1]?9:-1]] 79} 80 81do_ioerr_test ioerr-3 -tclprep { 82 execsql { 83 PRAGMA cache_size = 10; 84 BEGIN; 85 CREATE TABLE abc(a); 86 INSERT INTO abc VALUES(randstr(1500,1500)); -- Page 4 is overflow 87 } 88 for {set i 0} {$i<150} {incr i} { 89 execsql { 90 INSERT INTO abc VALUES(randstr(100,100)); 91 } 92 } 93 execsql COMMIT 94} -sqlbody { 95 CREATE TABLE abc2(a); 96 BEGIN; 97 DELETE FROM abc WHERE length(a)>100; 98 UPDATE abc SET a = randstr(90,90); 99 COMMIT; 100 CREATE TABLE abc3(a); 101} 102 103# Test IO errors that can occur retrieving a record header that flows over 104# onto an overflow page. 105do_ioerr_test ioerr-4 -tclprep { 106 set sql "CREATE TABLE abc(a1" 107 for {set i 2} {$i<1300} {incr i} { 108 append sql ", a$i" 109 } 110 append sql ");" 111 execsql $sql 112 execsql {INSERT INTO abc (a1) VALUES(NULL)} 113} -sqlbody { 114 SELECT * FROM abc; 115} 116 117# Test IO errors that may occur during a multi-file commit. 118# 119# Tests 8 and 17 are excluded when auto-vacuum is enabled for the same 120# reason as in test cases ioerr-1.XXX 121ifcapable attach { 122 set ex "" 123 if {[string match [execsql {pragma auto_vacuum}] 1]} { 124 set ex [list 4 17] 125 } 126 do_ioerr_test ioerr-5 -sqlprep { 127 ATTACH 'test2.db' AS test2; 128 } -sqlbody { 129 BEGIN; 130 CREATE TABLE t1(a,b,c); 131 CREATE TABLE test2.t2(a,b,c); 132 COMMIT; 133 } -exclude $ex 134} 135 136# Test IO errors when replaying two hot journals from a 2-file 137# transaction. This test only runs on UNIX. 138ifcapable crashtest&&attach { 139 if {![catch {sqlite3 -has_codec} r] && !$r} { 140 do_ioerr_test ioerr-6 -tclprep { 141 execsql { 142 ATTACH 'test2.db' as aux; 143 CREATE TABLE tx(a, b); 144 CREATE TABLE aux.ty(a, b); 145 } 146 set rc [crashsql -delay 2 -file test2.db-journal { 147 ATTACH 'test2.db' as aux; 148 PRAGMA cache_size = 10; 149 BEGIN; 150 CREATE TABLE aux.t2(a, b, c); 151 CREATE TABLE t1(a, b, c); 152 COMMIT; 153 }] 154 if {$rc!="1 {child process exited abnormally}"} { 155 error "Wrong error message: $rc" 156 } 157 } -sqlbody { 158 SELECT * FROM sqlite_master; 159 SELECT * FROM aux.sqlite_master; 160 } 161 } 162} 163 164# Test handling of IO errors that occur while rolling back hot journal 165# files. 166# 167# These tests can't be run on windows because the windows version of 168# SQLite holds a mandatory exclusive lock on journal files it has open. 169# 170btree_breakpoint 171if {$tcl_platform(platform)!="windows"} { 172 do_ioerr_test ioerr-7 -tclprep { 173 db close 174 sqlite3 db2 test2.db 175 db2 eval { 176 PRAGMA synchronous = 0; 177 CREATE TABLE t1(a, b); 178 INSERT INTO t1 VALUES(1, 2); 179 BEGIN; 180 INSERT INTO t1 VALUES(3, 4); 181 } 182 copy_file test2.db test.db 183 copy_file test2.db-journal test.db-journal 184 db2 close 185 } -tclbody { 186 sqlite3 db test.db 187 db eval { 188 SELECT * FROM t1; 189 } 190 } -exclude 1 191} 192 193# For test coverage: Cause an I/O failure while trying to read a 194# short field (one that fits into a Mem buffer without mallocing 195# for space). 196# 197do_ioerr_test ioerr-8 -tclprep { 198 execsql { 199 CREATE TABLE t1(a,b,c); 200 INSERT INTO t1 VALUES(randstr(200,200), randstr(1000,1000), 2); 201 } 202 db close 203 sqlite3 db test.db 204} -sqlbody { 205 SELECT c FROM t1; 206} 207 208# For test coverage: Cause an IO error whilst reading the master-journal 209# name from a journal file. 210if {$tcl_platform(platform)=="unix"} { 211 do_ioerr_test ioerr-9 -tclprep { 212 execsql { 213 CREATE TABLE t1(a,b,c); 214 INSERT INTO t1 VALUES(randstr(200,200), randstr(1000,1000), 2); 215 BEGIN; 216 INSERT INTO t1 VALUES(randstr(200,200), randstr(1000,1000), 2); 217 } 218 copy_file test.db-journal test2.db-journal 219 execsql { 220 COMMIT; 221 } 222 copy_file test2.db-journal test.db-journal 223 set f [open test.db-journal a] 224 fconfigure $f -encoding binary 225 puts -nonewline $f "hello" 226 puts -nonewline $f "\x00\x00\x00\x05\x01\x02\x03\x04" 227 puts -nonewline $f "\xd9\xd5\x05\xf9\x20\xa1\x63\xd7" 228 close $f 229 } -sqlbody { 230 SELECT a FROM t1; 231 } 232} 233 234# For test coverage: Cause an IO error during statement playback (i.e. 235# a constraint). 236do_ioerr_test ioerr-10 -tclprep { 237 execsql { 238 BEGIN; 239 CREATE TABLE t1(a PRIMARY KEY, b); 240 } 241 for {set i 0} {$i < 500} {incr i} { 242 execsql {INSERT INTO t1 VALUES(:i, 'hello world');} 243 } 244 execsql { 245 COMMIT; 246 } 247} -tclbody { 248 249 catch {execsql { 250 BEGIN; 251 INSERT INTO t1 VALUES('abc', 123); 252 INSERT INTO t1 VALUES('def', 123); 253 INSERT INTO t1 VALUES('ghi', 123); 254 INSERT INTO t1 SELECT (a+500)%900, 'good string' FROM t1; 255 }} msg 256 257 if {$msg != "column a is not unique"} { 258 error $msg 259 } 260} 261 262# Assertion fault bug reported by alex dimitrov. 263# 264do_ioerr_test ioerr-11 -erc 1 -sqlprep { 265 CREATE TABLE A(Id INTEGER, Name TEXT); 266 INSERT INTO A(Id, Name) VALUES(1, 'Name'); 267} -sqlbody { 268 UPDATE A SET Id = 2, Name = 'Name2' WHERE Id = 1; 269} 270 271# Test that an io error encountered in a sync() caused by a call to 272# sqlite3_release_memory() is handled Ok. Only try this if 273# memory-management is enabled. 274# 275ifcapable memorymanage { 276 do_ioerr_test memmanage-ioerr1 -sqlprep { 277 BEGIN; 278 CREATE TABLE t1(a, b, c); 279 INSERT INTO t1 VALUES(randstr(50,50), randstr(100,100), randstr(10,10)); 280 INSERT INTO t1 SELECT randstr(50,50), randstr(9,9), randstr(90,90) FROM t1; 281 INSERT INTO t1 SELECT randstr(50,50), randstr(9,9), randstr(90,90) FROM t1; 282 INSERT INTO t1 SELECT randstr(50,50), randstr(9,9), randstr(90,90) FROM t1; 283 INSERT INTO t1 SELECT randstr(50,50), randstr(9,9), randstr(90,90) FROM t1; 284 INSERT INTO t1 SELECT randstr(50,50), randstr(9,9), randstr(90,90) FROM t1; 285 } -tclbody { 286 sqlite3_release_memory 287 } -sqlbody { 288 COMMIT; 289 } 290} 291 292finish_test 293