1 # 2001 October 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 # This file implements regression tests for SQLite library.  The

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

    13 # such as writes failing because the disk is full.

    14 # 

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

    16 # available in the SQLite test fixture.

    17 #

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

    19 

    20 set testdir [file dirname $argv0]

    21 source $testdir/tester.tcl

    22 

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

    24 # whole file.

    25 ifcapable {!autovacuum} {

    26   finish_test

    27   return

    28 }

    29 

    30 do_ioerr_test autovacuum-ioerr2-1 -sqlprep {

    31   PRAGMA auto_vacuum = 1;

    32   CREATE TABLE abc(a);

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

    34 } -sqlbody {

    35   CREATE TABLE abc2(a);

    36   BEGIN;

    37   DELETE FROM abc;

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

    39   CREATE TABLE abc3(a);

    40   COMMIT;

    41 }

    42 

    43 do_ioerr_test autovacuum-ioerr2-2 -tclprep {

    44   execsql {

    45     PRAGMA auto_vacuum = 1;

    46     PRAGMA cache_size = 10;

    47     BEGIN;

    48     CREATE TABLE abc(a);

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

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

    51   }

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

    53     execsql {

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

    55     }

    56   }

    57   execsql COMMIT

    58 } -sqlbody {

    59   BEGIN;

    60   DELETE FROM abc WHERE length(a)>100;

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

    62   CREATE TABLE abc3(a);

    63   COMMIT;

    64 }

    65 

    66 do_ioerr_test autovacuum-ioerr2-3 -sqlprep {

    67   PRAGMA auto_vacuum = 1;

    68   CREATE TABLE abc(a);

    69   CREATE TABLE abc2(b);

    70 } -sqlbody {

    71   BEGIN;

    72   INSERT INTO abc2 VALUES(10);

    73   DROP TABLE abc;

    74   COMMIT;

    75   DROP TABLE abc2;

    76 }

    77 

    78 file delete -force backup.db

    79 ifcapable subquery {

    80   do_ioerr_test autovacuum-ioerr2-4 -tclprep {

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

    82       sqlite3 dbb backup.db 

    83       execsql {

    84         PRAGMA auto_vacuum = 1;

    85         BEGIN;

    86         CREATE TABLE abc(a);

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

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

    89       } dbb

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

    91         execsql {

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

    93         } dbb

    94       }

    95       execsql {

    96         COMMIT;

    97         PRAGMA cache_size = 10;

    98       } dbb

    99       dbb close

   100     }

   101     db close

   102     file delete -force test.db

   103     file delete -force test.db-journal

   104     copy_file backup.db test.db

   105     set ::DB [sqlite3 db test.db]

   106     execsql {

   107       PRAGMA cache_size = 10;

   108     }

   109   } -sqlbody {

   110     BEGIN;

   111     DELETE FROM abc WHERE oid < 3;

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

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

   114         (select max(oid) from abc);

   115     COMMIT;

   116   }

   117 }

   118 

   119 do_ioerr_test autovacuum-ioerr2-1 -sqlprep {

   120   PRAGMA auto_vacuum = 1;

   121   CREATE TABLE abc(a);

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

   123 } -sqlbody {

   124   CREATE TABLE abc2(a);

   125   BEGIN;

   126   DELETE FROM abc;

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

   128   CREATE TABLE abc3(a);

   129   COMMIT;

   130 }

   131 

   132 finish_test