1 # 2007 December 19 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 # during incremental vacuum with a shared cache. 14 # 15 # $Id: ioerr4.test,v 1.2 2008/05/08 01:11:42 drh Exp $ 16 17 set testdir [file dirname $argv0] 18 source $testdir/tester.tcl 19 20 # This test requires both shared cache and incremental vacuum. 21 # 22 ifcapable {!shared_cache || !autovacuum} { 23 finish_test 24 return 25 } 26 27 # Enable shared cache mode and incremental vacuum. 28 # 29 do_test ioerr4-1.1 { 30 db close 31 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] 32 } {0} 33 do_test ioerr4-1.2 { 34 file delete -force test.db test.db-journal 35 sqlite3 db test.db 36 sqlite3 db2 test.db 37 db eval { 38 PRAGMA auto_vacuum=INCREMENTAL; 39 CREATE TABLE a(i INTEGER, b BLOB); 40 } 41 db2 eval { 42 SELECT name FROM sqlite_master 43 } 44 } {a} 45 do_test ioerr4-1.3 { 46 db eval { 47 PRAGMA auto_vacuum; 48 } 49 } {2} 50 51 # Insert and delete many records in order to put lots of pages 52 # on the freelist. 53 # 54 do_test ioerr4-1.4 { 55 db eval { 56 INSERT INTO a VALUES(1, zeroblob(2000)); 57 INSERT INTO a VALUES(2, zeroblob(2000)); 58 INSERT INTO a SELECT i+2, zeroblob(2000) FROM a; 59 INSERT INTO a SELECT i+4, zeroblob(2000) FROM a; 60 INSERT INTO a SELECT i+8, zeroblob(2000) FROM a; 61 INSERT INTO a SELECT i+16, zeroblob(2000) FROM a; 62 SELECT count(*) FROM a; 63 } 64 } {32} 65 do_test ioerr4-1.5 { 66 db eval { 67 PRAGMA freelist_count 68 } 69 } {0} 70 do_test ioerr4-1.6 { 71 db eval { 72 DELETE FROM a; 73 PRAGMA freelist_count; 74 } 75 } {64} 76 77 # Set up for an I/O error on incremental vacuum 78 # with two connections on shared cache. 79 # 80 db close 81 db2 close 82 file copy -force test.db test.db-bu 83 do_ioerr_test ioerr4-2 -tclprep { 84 catch {db2 close} 85 db close 86 file delete -force test.db test.db-journal 87 file copy -force test.db-bu test.db 88 sqlite3_enable_shared_cache 1 89 set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db] 90 db eval {PRAGMA auto_vacuum=INCREMENTAL} 91 sqlite3 db2 test.db 92 } -tclbody { 93 db eval {PRAGMA incremental_vacuum(5)} 94 } 95 96 db2 close 97 file delete -force test.db-bu 98 sqlite3_enable_shared_cache $::enable_shared_cache 99 100 finish_test 101
