test/diskfull.test

   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 disk full
  13 # errors.
  14 #
  15 # $Id: diskfull.test,v 1.8 2008/07/12 14:52:20 drh Exp $
  16
  17 set testdir [file dirname $argv0]
  18 source $testdir/tester.tcl
  19
  20 set sqlite_io_error_persist 0
  21 set sqlite_io_error_hit 0
  22 set sqlite_io_error_pending 0
  23 do_test diskfull-1.1 {
  24   execsql {
  25     CREATE TABLE t1(x);
  26     INSERT INTO t1 VALUES(randstr(1000,1000));
  27     INSERT INTO t1 SELECT * FROM t1;
  28     INSERT INTO t1 SELECT * FROM t1;
  29     INSERT INTO t1 SELECT * FROM t1;
  30     INSERT INTO t1 SELECT * FROM t1;
  31     CREATE INDEX t1i1 ON t1(x);
  32     CREATE TABLE t2 AS SELECT x AS a, x AS b FROM t1;
  33     CREATE INDEX t2i1 ON t2(b);
  34   }
  35 } {}
  36 set sqlite_diskfull_pending 0
  37 integrity_check diskfull-1.2
  38 do_test diskfull-1.3 {
  39   set sqlite_diskfull_pending 1
  40   catchsql {
  41     INSERT INTO t1 SELECT * FROM t1;
  42   }
  43 } {1 {database or disk is full}}
  44 set sqlite_diskfull_pending 0
  45 integrity_check diskfull-1.4
  46 do_test diskfull-1.5 {
  47   set sqlite_diskfull_pending 1
  48   catchsql {
  49     DELETE FROM t1;
  50   }
  51 } {1 {database or disk is full}}
  52 set sqlite_diskfull_pending 0
  53 set sqlite_io_error_hit 0
  54 integrity_check diskfull-1.6
  55
  56 proc do_diskfull_test {prefix sql} {
  57   set ::go 1
  58   set ::sql $sql
  59   set ::i 1
  60   while {$::go} {
  61     incr ::i
  62     do_test ${prefix}.$::i.1 {
  63       set ::sqlite_diskfull_pending $::i
  64       set ::sqlite_diskfull 0
  65       set r [catchsql $::sql]
  66       if {!$::sqlite_diskfull} {
  67         set r {1 {database or disk is full}}
  68         set ::go 0
  69       }
  70       if {$r=="1 {disk I/O error}"} {
  71         set r {1 {database or disk is full}}
  72       }
  73       set r
  74     } {1 {database or disk is full}}
  75     set ::sqlite_diskfull_pending 0
  76     db close
  77     sqlite3 db test.db
  78     integrity_check ${prefix}.$::i.2
  79   }
  80 }
  81
  82 do_diskfull_test diskfull-2 VACUUM
  83
  84 # db close
  85 # forcedelete test.db
  86 # forcedelete test.db-journal
  87 # sqlite3 db test.db
  88 #
  89 # do_test diskfull-3.1 {
  90 #   execsql {
  91 #     PRAGMA default_cache_size = 10;
  92 #     CREATE TABLE t3(a, b, UNIQUE(a, b));
  93 #     INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
  94 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
  95 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
  96 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
  97 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
  98 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
  99 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
 100 #     INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
 101 #     UPDATE t3
 102 #     SET b = (SELECT a FROM t3 WHERE rowid = (SELECT max(rowid)-1 FROM t3))
 103 #     WHERE rowid = (SELECT max(rowid) FROM t3);
 104 #     PRAGMA cache_size;
 105 #   }
 106 # } {10}
 107 #
 108 # do_diskfull_test diskfull-3.2 {
 109 #   BEGIN;
 110 #     INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
 111 #     UPDATE t3 SET a = b;
 112 #   COMMIT;
 113 # }
 114
 115 finish_test