Return to ioerr4.test CVS log

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

Annotation of embedaddon/sqlite3/test/ioerr4.test, revision 1.1.1.1

1.1       misho       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:   forcedelete 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: forcecopy test.db test.db-bu
                     83: do_ioerr_test ioerr4-2 -tclprep {
                     84:   catch {db2 close}
                     85:   db close
                     86:   forcedelete test.db test.db-journal
                     87:   forcecopy 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: forcedelete test.db-bu
                     98: sqlite3_enable_shared_cache $::enable_shared_cache
                     99: 
                    100: finish_test