--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/persistentstorage/sqlite3api/TEST/TclScript/ioerr4.test	Fri Jan 22 11:06:30 2010 +0200
@@ -0,0 +1,100 @@
+# 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