Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix the walcrash4.test test module so that it works on windows. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
2091a4c9231c7871f27661adc27dd7df |
User & Date: | drh 2016-06-07 20:25:19.931 |
Context
2016-06-08
| ||
14:04 | Add the "dbhash.exe" utility program that computes a SHA1 hash over the invariant content of an SQLite database file. Free space in the file, the page size, auto_vacuum status, text encoding, and so forth do not change the hash. Only the content matters. (check-in: f48a4ad33e user: drh tags: trunk) | |
01:03 | An initial attempt at a "dbhash" command-line utility. (check-in: 2247649ca2 user: drh tags: dbhash) | |
2016-06-07
| ||
20:25 | Fix the walcrash4.test test module so that it works on windows. (check-in: 2091a4c923 user: drh tags: trunk) | |
2016-06-06
| ||
20:36 | In winFullPathname, translate '/X:' to 'X:' before doing anything else. (check-in: e404ad705d user: mistachkin tags: trunk) | |
Changes
Changes to test/walcrash4.test.
︙ | ︙ | |||
30 31 32 33 34 35 36 37 38 39 40 41 42 43 | PRAGMA autovacuum = 0; PRAGMA page_size = 1024; PRAGMA journal_mode = wal; PRAGMA main.synchronous = full; } {wal} faultsim_save_and_close for {set nExtra 0} {$nExtra < 10} {incr nExtra} { for {set i 0} {$i < 10} {incr i} { do_test 1.nExtra=$nExtra.i=$i.1 { faultsim_restore_and_reopen set fd [open crash.tcl w] | > > > > > > > > | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | PRAGMA autovacuum = 0; PRAGMA page_size = 1024; PRAGMA journal_mode = wal; PRAGMA main.synchronous = full; } {wal} faultsim_save_and_close # The error message is different on unix and windows # if {$::tcl_platform(platform)=="windows"} { set msg "child killed: unknown signal" } else { set msg "child process exited abnormally" } for {set nExtra 0} {$nExtra < 10} {incr nExtra} { for {set i 0} {$i < 10} {incr i} { do_test 1.nExtra=$nExtra.i=$i.1 { faultsim_restore_and_reopen set fd [open crash.tcl w] |
︙ | ︙ | |||
59 60 61 62 63 64 65 | } sqlite3_crash_now }] close $fd set r [catch { exec [info nameofexec] crash.tcl >@stdout } msg] list $r $msg | | | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | } sqlite3_crash_now }] close $fd set r [catch { exec [info nameofexec] crash.tcl >@stdout } msg] list $r $msg } "1 {$msg}" do_execsql_test 1.nExtra=$nExtra.i=$i.2 { SELECT count(*) FROM t1; PRAGMA integrity_check; } {1 ok} } } finish_test |