Annotation of embedaddon/sqlite3/test/ioerr5.test, revision 1.1
1.1 ! misho 1: # 2008 May 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: #
! 12: # This file tests that if sqlite3_release_memory() is called to reclaim
! 13: # memory from a pager that is in the error-state, SQLite does not
! 14: # incorrectly write dirty pages out to the database (not safe to do
! 15: # once the pager is in error state).
! 16: #
! 17: # $Id: ioerr5.test,v 1.5 2008/08/28 18:35:34 danielk1977 Exp $
! 18:
! 19: set testdir [file dirname $argv0]
! 20: source $testdir/tester.tcl
! 21:
! 22: ifcapable !memorymanage||!shared_cache {
! 23: finish_test
! 24: return
! 25: }
! 26:
! 27: db close
! 28:
! 29: set ::enable_shared_cache [sqlite3_enable_shared_cache 1]
! 30: set ::soft_limit [sqlite3_soft_heap_limit 1048576]
! 31:
! 32: # This procedure prepares, steps and finalizes an SQL statement via the
! 33: # UTF-16 APIs. The text representation of an SQLite error code is returned
! 34: # ("SQLITE_OK", "SQLITE_IOERR" etc.). The actual results returned by the
! 35: # SQL statement, if it is a SELECT, are not available.
! 36: #
! 37: # This can be useful for testing because it forces SQLite to make an extra
! 38: # call to sqlite3_malloc() when translating from the supplied UTF-16 to
! 39: # the UTF-8 encoding used internally.
! 40: #
! 41: proc dosql16 {zSql {db db}} {
! 42: set sql [encoding convertto unicode $zSql]
! 43: append sql "\00\00"
! 44: set stmt [sqlite3_prepare16 $db $sql -1 {}]
! 45: sqlite3_step $stmt
! 46: set rc [sqlite3_finalize $stmt]
! 47: }
! 48:
! 49: proc compilesql16 {zSql {db db}} {
! 50: set sql [encoding convertto unicode $zSql]
! 51: append sql "\00\00"
! 52: set stmt [sqlite3_prepare16 $db $sql -1 {}]
! 53: set rc [sqlite3_finalize $stmt]
! 54: }
! 55:
! 56: # Open two database connections (handle db and db2) to database "test.db".
! 57: #
! 58: proc opendatabases {} {
! 59: catch {db close}
! 60: catch {db2 close}
! 61: sqlite3 db test.db
! 62: sqlite3 db2 test.db
! 63: db2 cache size 0
! 64: db cache size 0
! 65: execsql {
! 66: pragma page_size=512;
! 67: pragma auto_vacuum=2;
! 68: pragma cache_size=16;
! 69: }
! 70: }
! 71:
! 72: # Open two database connections and create a single table in the db.
! 73: #
! 74: do_test ioerr5-1.0 {
! 75: opendatabases
! 76: execsql { CREATE TABLE A(Id INTEGER, Name TEXT) }
! 77: } {}
! 78:
! 79: foreach locking_mode {normal exclusive} {
! 80: set nPage 2
! 81: for {set iFail 1} {$iFail<200} {incr iFail} {
! 82: sqlite3_soft_heap_limit 1048576
! 83: opendatabases
! 84: execsql { pragma locking_mode=exclusive }
! 85: set nRow [db one {SELECT count(*) FROM a}]
! 86:
! 87: # Dirty (at least) one of the pages in the cache.
! 88: do_test ioerr5-1.$locking_mode-$iFail.1 {
! 89: execsql {
! 90: BEGIN EXCLUSIVE;
! 91: INSERT INTO a VALUES(1, 'ABCDEFGHIJKLMNOP');
! 92: }
! 93: } {}
! 94:
! 95: # Open a read-only cursor on table "a". If the COMMIT below is
! 96: # interrupted by a persistent IO error, the pager will transition to
! 97: # PAGER_ERROR state. If there are no other read-only cursors open,
! 98: # from there the pager immediately discards all cached data and
! 99: # switches to PAGER_OPEN state. This read-only cursor stops that
! 100: # from happening, leaving the pager stuck in PAGER_ERROR state.
! 101: #
! 102: set channel [db incrblob -readonly a Name [db last_insert_rowid]]
! 103:
! 104: # Now try to commit the transaction. Cause an IO error to occur
! 105: # within this operation, which moves the pager into the error state.
! 106: #
! 107: set ::sqlite_io_error_persist 1
! 108: set ::sqlite_io_error_pending $iFail
! 109: do_test ioerr5-1.$locking_mode-$iFail.2 {
! 110: set rc [catchsql {COMMIT}]
! 111: list
! 112: } {}
! 113: set ::sqlite_io_error_hit 0
! 114: set ::sqlite_io_error_persist 0
! 115: set ::sqlite_io_error_pending 0
! 116:
! 117: # Read the contents of the database file into a Tcl variable.
! 118: #
! 119: set fd [open test.db]
! 120: fconfigure $fd -translation binary -encoding binary
! 121: set zDatabase [read $fd]
! 122: close $fd
! 123:
! 124: # Set a very low soft-limit and then try to compile an SQL statement
! 125: # from UTF-16 text. To do this, SQLite will need to reclaim memory
! 126: # from the pager that is in error state. Including that associated
! 127: # with the dirty page.
! 128: #
! 129: do_test ioerr5-1.$locking_mode-$iFail.3 {
! 130: sqlite3_soft_heap_limit 1024
! 131: compilesql16 "SELECT 10"
! 132: } {SQLITE_OK}
! 133:
! 134: close $channel
! 135:
! 136: # Ensure that nothing was written to the database while reclaiming
! 137: # memory from the pager in error state.
! 138: #
! 139: do_test ioerr5-1.$locking_mode-$iFail.4 {
! 140: set fd [open test.db]
! 141: fconfigure $fd -translation binary -encoding binary
! 142: set zDatabase2 [read $fd]
! 143: close $fd
! 144: expr {$zDatabase eq $zDatabase2}
! 145: } {1}
! 146:
! 147: if {$rc eq [list 0 {}]} {
! 148: do_test ioerr5.1-$locking_mode-$iFail.3 {
! 149: execsql { SELECT count(*) FROM a }
! 150: } [expr $nRow+1]
! 151: break
! 152: }
! 153: }
! 154: }
! 155:
! 156: # Make sure this test script doesn't leave any files open.
! 157: #
! 158: do_test ioerr5-1.X {
! 159: catch { db close }
! 160: catch { db2 close }
! 161: set sqlite_open_file_count
! 162: } 0
! 163:
! 164: do_test ioerr5-2.0 {
! 165: sqlite3 db test.db
! 166: execsql { CREATE INDEX i1 ON a(id, name); }
! 167: } {}
! 168:
! 169: foreach locking_mode {exclusive normal} {
! 170: for {set iFail 1} {$iFail<200} {incr iFail} {
! 171: sqlite3_soft_heap_limit 1048576
! 172: opendatabases
! 173: execsql { pragma locking_mode=exclusive }
! 174: set nRow [db one {SELECT count(*) FROM a}]
! 175:
! 176: do_test ioerr5-2.$locking_mode-$iFail.1 {
! 177: execsql {
! 178: BEGIN EXCLUSIVE;
! 179: INSERT INTO a VALUES(1, 'ABCDEFGHIJKLMNOP');
! 180: }
! 181: } {}
! 182:
! 183: set ::sqlite_io_error_persist 1
! 184: set ::sqlite_io_error_pending $iFail
! 185:
! 186: sqlite3_release_memory 10000
! 187:
! 188: set error_hit $::sqlite_io_error_hit
! 189: set ::sqlite_io_error_hit 0
! 190: set ::sqlite_io_error_persist 0
! 191: set ::sqlite_io_error_pending 0
! 192: if {$error_hit} {
! 193: do_test ioerr5-2.$locking_mode-$iFail.3a {
! 194: catchsql COMMIT
! 195: } {1 {disk I/O error}}
! 196: } else {
! 197: do_test ioerr5-2.$locking_mode-$iFail.3b {
! 198: execsql COMMIT
! 199: } {}
! 200: break
! 201: }
! 202: }
! 203: }
! 204:
! 205: # Make sure this test script doesn't leave any files open.
! 206: #
! 207: do_test ioerr5-2.X {
! 208: catch { db close }
! 209: catch { db2 close }
! 210: set sqlite_open_file_count
! 211: } 0
! 212:
! 213: sqlite3_enable_shared_cache $::enable_shared_cache
! 214: sqlite3_soft_heap_limit $::soft_limit
! 215:
! 216: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ioerr5.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