# 2007 December 19

 #

 # 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.

 #

 #***********************************************************************

 # This file implements regression tests for SQLite library.  The

 # focus of this file is testing for correct handling of I/O errors

 # during incremental vacuum with a shared cache.

 #

 # $Id: ioerr4.test,v 1.2 2008/05/08 01:11:42 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 # This test requires both shared cache and incremental vacuum.

 #

 ifcapable {!shared_cache || !autovacuum} {

   finish_test

   return

 }

 # Enable shared cache mode and incremental vacuum.

 #

 do_test ioerr4-1.1 {

   db close

   set ::enable_shared_cache [sqlite3_enable_shared_cache 1]

 } {0}

 do_test ioerr4-1.2 {

   file delete -force test.db test.db-journal

   sqlite3 db test.db

   sqlite3 db2 test.db

   db eval {

     PRAGMA auto_vacuum=INCREMENTAL;

     CREATE TABLE a(i INTEGER, b BLOB);

   }

   db2 eval {

     SELECT name FROM sqlite_master

   }

 } {a}

 do_test ioerr4-1.3 {

   db eval {

     PRAGMA auto_vacuum;

   }

 } {2}

 # Insert and delete many records in order to put lots of pages

 # on the freelist.

 #

 do_test ioerr4-1.4 {

   db eval {

     INSERT INTO a VALUES(1, zeroblob(2000));

     INSERT INTO a VALUES(2, zeroblob(2000));

     INSERT INTO a SELECT i+2, zeroblob(2000) FROM a;

     INSERT INTO a SELECT i+4, zeroblob(2000) FROM a;

     INSERT INTO a SELECT i+8, zeroblob(2000) FROM a;

     INSERT INTO a SELECT i+16, zeroblob(2000) FROM a;

     SELECT count(*) FROM a;

   }

 } {32}

 do_test ioerr4-1.5 {

   db eval {

     PRAGMA freelist_count

   }

 } {0}

 do_test ioerr4-1.6 {

   db eval {

     DELETE FROM a;

     PRAGMA freelist_count;

   }

 } {64}

 # Set up for an I/O error on incremental vacuum

 # with two connections on shared cache.

 #

 db close

 db2 close

 file copy -force test.db test.db-bu

 do_ioerr_test ioerr4-2 -tclprep {

   catch {db2 close}

   db close

   file delete -force test.db test.db-journal

   file copy -force test.db-bu test.db

   sqlite3_enable_shared_cache 1

   set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db]

   db eval {PRAGMA auto_vacuum=INCREMENTAL}

   sqlite3 db2 test.db

 } -tclbody {

   db eval {PRAGMA incremental_vacuum(5)}

 }

 db2 close

 file delete -force test.db-bu

 sqlite3_enable_shared_cache $::enable_shared_cache

 finish_test