wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2010 June 16
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. Specifically,
12 # it tests that ticket [fc62af4523] has been resolved.
13 #
14  
15 set testdir [file dirname $argv0]
16 source $testdir/tester.tcl
17 source $testdir/lock_common.tcl
18 source $testdir/malloc_common.tcl
19  
20 do_test tkt-fc62af4523.1 {
21 execsql {
22 PRAGMA cache_size = 10;
23 PRAGMA journal_mode = persist;
24 CREATE TABLE t1(a UNIQUE, b UNIQUE);
25 INSERT INTO t1 SELECT randomblob(200), randomblob(300);
26 INSERT INTO t1 SELECT randomblob(200), randomblob(300) FROM t1; -- 2
27 INSERT INTO t1 SELECT randomblob(200), randomblob(300) FROM t1; -- 4
28 INSERT INTO t1 SELECT randomblob(200), randomblob(300) FROM t1; -- 8
29 INSERT INTO t1 SELECT randomblob(200), randomblob(300) FROM t1; -- 16
30 INSERT INTO t1 SELECT randomblob(200), randomblob(300) FROM t1; -- 32
31 INSERT INTO t1 SELECT randomblob(200), randomblob(300) FROM t1; -- 64
32 }
33 execsql {
34 PRAGMA integrity_check;
35 SELECT count(*) FROM t1;
36 }
37 } {ok 64}
38  
39 # Launch an external process. Have it write (but not commit) a large
40 # transaction to the database.
41 #
42 set ::chan [launch_testfixture]
43 proc buddy {code} { testfixture $::chan $code }
44 do_test tkt-fc62af4523.2 {
45 testfixture $::chan {
46 sqlite3 db test.db
47 db eval {
48 PRAGMA cache_size = 10;
49 BEGIN;
50 UPDATE t1 SET b = randomblob(400);
51 UPDATE t1 SET a = randomblob(201);
52 }
53 }
54 file exists test.db-journal
55 } {1}
56  
57 # Now do "PRAGMA journal_mode = DELETE" in this process. At one point
58 # this was causing SQLite to delete the journal file from the file-system,
59 # even though the external process is currently using it.
60 #
61 do_test tkt-fc62af4523.3 { execsql { PRAGMA journal_mode = DELETE } } {delete}
62 do_test tkt-fc62af4523.4 { file exists test.db-journal } {1}
63  
64 # Cause the external process to crash. Since it has already written
65 # uncommitted data into the database file, the next reader will have
66 # to do a hot-journal rollback to recover the database.
67 #
68 # Or, if this test is run in a version with the bug present, the journal
69 # file has already been deleted. In this case we are left with a corrupt
70 # database file and no hot-journal to fix it with.
71 #
72 do_test tkt-fc62af4523.5 {
73 testfixture $::chan sqlite_abort
74 } {ERROR: Child process hung up}
75 after 200
76 do_test tkt-fc62af4523.6 {
77 execsql {
78 PRAGMA integrity_check;
79 SELECT count(*) FROM t1;
80 }
81 } {ok 64}
82  
83 catch { close $::chan }
84 finish_test