Import SQLite 3.7.6.3.

third_party/sqlite/src/test/ioerr5.test

 # 2008 May 12
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 73 matching lines @@
     execsql { pragma locking_mode=exclusive }
     set nRow [db one {SELECT count(*) FROM a}]
   
     # Dirty (at least) one of the pages in the cache.
     do_test ioerr5-1.$locking_mode-$iFail.1 {
       execsql {
         BEGIN EXCLUSIVE;
         INSERT INTO a VALUES(1, 'ABCDEFGHIJKLMNOP');
       }
     } {}
+
+    # Open a read-only cursor on table "a". If the COMMIT below is
+    # interrupted by a persistent IO error, the pager will transition to 
+    # PAGER_ERROR state. If there are no other read-only cursors open,
+    # from there the pager immediately discards all cached data and 
+    # switches to PAGER_OPEN state. This read-only cursor stops that
+    # from happening, leaving the pager stuck in PAGER_ERROR state.
+    #
+    set channel [db incrblob -readonly a Name [db last_insert_rowid]]
   
     # Now try to commit the transaction. Cause an IO error to occur
     # within this operation, which moves the pager into the error state.
     #
     set ::sqlite_io_error_persist 1
     set ::sqlite_io_error_pending $iFail
     do_test ioerr5-1.$locking_mode-$iFail.2 {
       set rc [catchsql {COMMIT}]
       list
     } {}
     set ::sqlite_io_error_hit 0
     set ::sqlite_io_error_persist 0
     set ::sqlite_io_error_pending 0
   
     # Read the contents of the database file into a Tcl variable.
     #
     set fd [open test.db]
     fconfigure $fd -translation binary -encoding binary
     set zDatabase [read $fd]
     close $fd
 
     # Set a very low soft-limit and then try to compile an SQL statement 
     # from UTF-16 text. To do this, SQLite will need to reclaim memory
     # from the pager that is in error state. Including that associated
     # with the dirty page.
     #
     do_test ioerr5-1.$locking_mode-$iFail.3 {
-      set bt [btree_from_db db]
       sqlite3_soft_heap_limit 1024
       compilesql16 "SELECT 10"
-      array set stats [btree_pager_stats $bt]
+    } {SQLITE_OK}
 
-      # If the pager made it all the way to PAGER_SYNCED state, then 
-      # both in-memory pages are clean. Following the calls to 
-      # release_memory() that were made as part of the [compilesql16]
-      # above, there will be zero pages left in the cache.
-      #
-      # If the pager did not make it as far as PAGER_SYNCED, the two
-      # in memory pages are still dirty. So there will be 2 pages left
-      # in the cache following the release_memory() calls.
-      #
-      if {$stats(state)==5} {
-        set nPage 0
-      }
-      expr {$stats(page)==$nPage}
-    } {1}
+    close $channel
 
     # Ensure that nothing was written to the database while reclaiming
     # memory from the pager in error state.
     #
     do_test ioerr5-1.$locking_mode-$iFail.4 {
       set fd [open test.db]
       fconfigure $fd -translation binary -encoding binary
       set zDatabase2 [read $fd]
       close $fd
       expr {$zDatabase eq $zDatabase2}
     } {1}
-  
+
     if {$rc eq [list 0 {}]} {
       do_test ioerr5.1-$locking_mode-$iFail.3 {
         execsql { SELECT count(*) FROM a }
       } [expr $nRow+1]
       break
     }
   }
 }
 
 # Make sure this test script doesn't leave any files open.
@@ skipping 50 matching lines @@
 do_test ioerr5-2.X {
   catch { db close }
   catch { db2 close }
   set sqlite_open_file_count
 } 0
 
 sqlite3_enable_shared_cache $::enable_shared_cache
 sqlite3_soft_heap_limit $::soft_limit
 
 finish_test