wasCSharpSQLite – Blame information for rev

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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 # file delete -force test.db
86 # file delete -force 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