|
1 # 2008 March 20 |
|
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 # |
|
12 # $Id: crash7.test,v 1.1 2008/04/03 14:36:26 danielk1977 Exp $ |
|
13 |
|
14 set testdir [file dirname $argv0] |
|
15 source $testdir/tester.tcl |
|
16 |
|
17 ifcapable !crashtest { |
|
18 finish_test |
|
19 return |
|
20 } |
|
21 |
|
22 proc signature {} { |
|
23 return [db eval {SELECT count(*), md5sum(a), md5sum(b), md5sum(c) FROM abc}] |
|
24 } |
|
25 |
|
26 foreach f [list test.db test.db-journal] { |
|
27 for {set ii 1} {$ii < 64} {incr ii} { |
|
28 db close |
|
29 file delete test.db |
|
30 sqlite3 db test.db |
|
31 |
|
32 set from_size [expr 1024 << ($ii&3)] |
|
33 set to_size [expr 1024 << (($ii>>2)&3)] |
|
34 |
|
35 execsql " |
|
36 PRAGMA page_size = $from_size; |
|
37 BEGIN; |
|
38 CREATE TABLE abc(a PRIMARY KEY, b, c); |
|
39 INSERT INTO abc VALUES(randomblob(100), randomblob(200), randomblob(1000)); |
|
40 INSERT INTO abc |
|
41 SELECT randomblob(1000), randomblob(200), randomblob(100) |
|
42 FROM abc; |
|
43 INSERT INTO abc |
|
44 SELECT randomblob(100), randomblob(200), randomblob(1000) |
|
45 FROM abc; |
|
46 INSERT INTO abc |
|
47 SELECT randomblob(100), randomblob(200), randomblob(1000) |
|
48 FROM abc; |
|
49 INSERT INTO abc |
|
50 SELECT randomblob(100), randomblob(200), randomblob(1000) |
|
51 FROM abc; |
|
52 INSERT INTO abc |
|
53 SELECT randomblob(100), randomblob(200), randomblob(1000) |
|
54 FROM abc WHERE [expr $ii&16]; |
|
55 INSERT INTO abc |
|
56 SELECT randomblob(25), randomblob(45), randomblob(9456) |
|
57 FROM abc WHERE [expr $ii&32]; |
|
58 INSERT INTO abc |
|
59 SELECT randomblob(100), randomblob(200), randomblob(1000) |
|
60 FROM abc WHERE [expr $ii&8]; |
|
61 INSERT INTO abc |
|
62 SELECT randomblob(25), randomblob(45), randomblob(9456) |
|
63 FROM abc WHERE [expr $ii&4]; |
|
64 COMMIT; |
|
65 " |
|
66 |
|
67 set sig [signature] |
|
68 db close |
|
69 |
|
70 do_test crash7-1.$ii.crash { |
|
71 crashsql -file $f " |
|
72 PRAGMA page_size = $to_size; |
|
73 VACUUM; |
|
74 " |
|
75 } {1 {child process exited abnormally}} |
|
76 |
|
77 sqlite3 db test.db |
|
78 integrity_check crash7-1.$ii.integrity |
|
79 } |
|
80 } |
|
81 |
|
82 finish_test |