Annotation of embedaddon/sqlite3/test/incrvacuum_ioerr.test, revision 1.1.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>