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 17set testdir [file dirname $argv0] 18source $testdir/tester.tcl 19 20# This test requires both shared cache and incremental vacuum. 21# 22ifcapable {!shared_cache || !autovacuum} { 23 finish_test 24 return 25} 26 27# Enable shared cache mode and incremental vacuum. 28# 29do_test ioerr4-1.1 { 30 db close 31 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] 32} {0} 33do_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} 45do_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# 54do_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} 65do_test ioerr4-1.5 { 66 db eval { 67 PRAGMA freelist_count 68 } 69} {0} 70do_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# 80db close 81db2 close 82file copy -force test.db test.db-bu 83do_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 96db2 close 97file delete -force test.db-bu 98sqlite3_enable_shared_cache $::enable_shared_cache 99 100finish_test 101