Annotation of embedaddon/sqlite3/test/incrvacuum_ioerr.test, revision 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>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to incrvacuum_ioerr.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test