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

 #

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

 # This file implements regression tests for SQLite library.  The

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

 # such as writes failing because the disk is full.

 # 

 # The tests in this file use special facilities that are only

 # available in the SQLite test fixture.

 #

 # $Id: autovacuum_ioerr2.test,v 1.7 2008/07/12 14:52:20 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 # If this build of the library does not support auto-vacuum, omit this

 # whole file.

 ifcapable {!autovacuum} {

   finish_test

   return

 }

 do_ioerr_test autovacuum-ioerr2-1 -sqlprep {

   PRAGMA auto_vacuum = 1;

   CREATE TABLE abc(a);

   INSERT INTO abc VALUES(randstr(1500,1500));

 } -sqlbody {

   CREATE TABLE abc2(a);

   BEGIN;

   DELETE FROM abc;

   INSERT INTO abc VALUES(randstr(1500,1500));

   CREATE TABLE abc3(a);

   COMMIT;

 }

 do_ioerr_test autovacuum-ioerr2-2 -tclprep {

   execsql {

     PRAGMA auto_vacuum = 1;

     PRAGMA cache_size = 10;

     BEGIN;

     CREATE TABLE abc(a);

     INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 4 is overflow

     INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 5 is overflow

   }

   for {set i 0} {$i<150} {incr i} {

     execsql {

       INSERT INTO abc VALUES(randstr(100,100)); 

     }

   }

   execsql COMMIT

 } -sqlbody {

   BEGIN;

   DELETE FROM abc WHERE length(a)>100;

   UPDATE abc SET a = randstr(90,90);

   CREATE TABLE abc3(a);

   COMMIT;

 }

 do_ioerr_test autovacuum-ioerr2-3 -sqlprep {

   PRAGMA auto_vacuum = 1;

   CREATE TABLE abc(a);

   CREATE TABLE abc2(b);

 } -sqlbody {

   BEGIN;

   INSERT INTO abc2 VALUES(10);

   DROP TABLE abc;

   COMMIT;

   DROP TABLE abc2;

 }

 file delete -force backup.db

 ifcapable subquery {

   do_ioerr_test autovacuum-ioerr2-4 -tclprep {

     if {![file exists backup.db]} {

       sqlite3 dbb backup.db 

       execsql {

         PRAGMA auto_vacuum = 1;

         BEGIN;

         CREATE TABLE abc(a);

         INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 4 is overflow

         INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 5 is overflow

       } dbb

       for {set i 0} {$i<2500} {incr i} {

         execsql {

           INSERT INTO abc VALUES(randstr(100,100)); 

         } dbb

       }

       execsql {

         COMMIT;

         PRAGMA cache_size = 10;

       } dbb

       dbb close

     }

     db close

     file delete -force test.db

     file delete -force test.db-journal

     copy_file backup.db test.db

     set ::DB [sqlite3 db test.db]

     execsql {

       PRAGMA cache_size = 10;

     }

   } -sqlbody {

     BEGIN;

     DELETE FROM abc WHERE oid < 3;

     UPDATE abc SET a = randstr(100,100) WHERE oid > 2300;

     UPDATE abc SET a = randstr(1100,1100) WHERE oid = 

         (select max(oid) from abc);

     COMMIT;

   }

 }

 do_ioerr_test autovacuum-ioerr2-1 -sqlprep {

   PRAGMA auto_vacuum = 1;

   CREATE TABLE abc(a);

   INSERT INTO abc VALUES(randstr(1500,1500));

 } -sqlbody {

   CREATE TABLE abc2(a);

   BEGIN;

   DELETE FROM abc;

   INSERT INTO abc VALUES(randstr(1500,1500));

   CREATE TABLE abc3(a);

   COMMIT;

 }

 finish_test