wasCSharpSQLite – Blame information for rev 1
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 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 |