Return to diskfull.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/diskfull.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 disk full
        !            13: # errors.
        !            14: # 
        !            15: # $Id: diskfull.test,v 1.8 2008/07/12 14:52:20 drh Exp $
        !            16: 
        !            17: set testdir [file dirname $argv0]
        !            18: source $testdir/tester.tcl
        !            19: 
        !            20: set sqlite_io_error_persist 0
        !            21: set sqlite_io_error_hit 0
        !            22: set sqlite_io_error_pending 0
        !            23: do_test diskfull-1.1 {
        !            24:   execsql {
        !            25:     CREATE TABLE t1(x);
        !            26:     INSERT INTO t1 VALUES(randstr(1000,1000));
        !            27:     INSERT INTO t1 SELECT * FROM t1;
        !            28:     INSERT INTO t1 SELECT * FROM t1;
        !            29:     INSERT INTO t1 SELECT * FROM t1;
        !            30:     INSERT INTO t1 SELECT * FROM t1;
        !            31:     CREATE INDEX t1i1 ON t1(x);
        !            32:     CREATE TABLE t2 AS SELECT x AS a, x AS b FROM t1;
        !            33:     CREATE INDEX t2i1 ON t2(b);
        !            34:   }
        !            35: } {}
        !            36: set sqlite_diskfull_pending 0
        !            37: integrity_check diskfull-1.2
        !            38: do_test diskfull-1.3 {
        !            39:   set sqlite_diskfull_pending 1
        !            40:   catchsql {
        !            41:     INSERT INTO t1 SELECT * FROM t1;
        !            42:   }
        !            43: } {1 {database or disk is full}}
        !            44: set sqlite_diskfull_pending 0
        !            45: integrity_check diskfull-1.4
        !            46: do_test diskfull-1.5 {
        !            47:   set sqlite_diskfull_pending 1
        !            48:   catchsql {
        !            49:     DELETE FROM t1;
        !            50:   }
        !            51: } {1 {database or disk is full}}
        !            52: set sqlite_diskfull_pending 0
        !            53: set sqlite_io_error_hit 0
        !            54: integrity_check diskfull-1.6
        !            55: 
        !            56: proc do_diskfull_test {prefix sql} {
        !            57:   set ::go 1
        !            58:   set ::sql $sql
        !            59:   set ::i 1
        !            60:   while {$::go} {
        !            61:     incr ::i
        !            62:     do_test ${prefix}.$::i.1 {
        !            63:       set ::sqlite_diskfull_pending $::i
        !            64:       set ::sqlite_diskfull 0
        !            65:       set r [catchsql $::sql]
        !            66:       if {!$::sqlite_diskfull} {
        !            67:         set r {1 {database or disk is full}}
        !            68:         set ::go 0
        !            69:       }
        !            70:       if {$r=="1 {disk I/O error}"} {
        !            71:         set r {1 {database or disk is full}}
        !            72:       }
        !            73:       set r
        !            74:     } {1 {database or disk is full}}
        !            75:     set ::sqlite_diskfull_pending 0
        !            76:     db close
        !            77:     sqlite3 db test.db
        !            78:     integrity_check ${prefix}.$::i.2
        !            79:   }
        !            80: }
        !            81: 
        !            82: do_diskfull_test diskfull-2 VACUUM
        !            83: 
        !            84: # db close
        !            85: # forcedelete test.db
        !            86: # forcedelete test.db-journal
        !            87: # sqlite3 db test.db
        !            88: # 
        !            89: # do_test diskfull-3.1 {
        !            90: #   execsql {
        !            91: #     PRAGMA default_cache_size = 10;
        !            92: #     CREATE TABLE t3(a, b, UNIQUE(a, b));
        !            93: #     INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
        !            94: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !            95: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !            96: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !            97: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !            98: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !            99: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !           100: #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
        !           101: #     UPDATE t3 
        !           102: #     SET b = (SELECT a FROM t3 WHERE rowid = (SELECT max(rowid)-1 FROM t3))
        !           103: #     WHERE rowid = (SELECT max(rowid) FROM t3);
        !           104: #     PRAGMA cache_size;
        !           105: #   }
        !           106: # } {10}
        !           107: # 
        !           108: # do_diskfull_test diskfull-3.2 {
        !           109: #   BEGIN;
        !           110: #     INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
        !           111: #     UPDATE t3 SET a = b;
        !           112: #   COMMIT;
        !           113: # }
        !           114: 
        !           115: finish_test