/ Check-in [2091a4c9]
Login

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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2091a4c9231c7871f27661adc27dd7df26500f6c
User & Date: drh 2016-06-07 20:25:19
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: f48a4ad3 user: drh tags: trunk
01:03
An initial attempt at a "dbhash" command-line utility. check-in: 2247649c user: drh tags: dbhash
2016-06-07
20:25
Fix the walcrash4.test test module so that it works on windows. check-in: 2091a4c9 user: drh tags: trunk
2016-06-06
20:36
In winFullPathname, translate '/X:' to 'X:' before doing anything else. check-in: e404ad70 user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/walcrash4.test.

    30     30     PRAGMA autovacuum = 0;
    31     31     PRAGMA page_size = 1024;
    32     32     PRAGMA journal_mode = wal;
    33     33     PRAGMA main.synchronous = full;
    34     34   } {wal}
    35     35   
    36     36   faultsim_save_and_close
           37  +
           38  +# The error message is different on unix and windows
           39  +#
           40  +if {$::tcl_platform(platform)=="windows"} {
           41  + set msg "child killed: unknown signal"
           42  +} else {
           43  + set msg "child process exited abnormally"
           44  +}
    37     45   
    38     46   for {set nExtra 0} {$nExtra < 10} {incr nExtra} {
    39     47     for {set i 0} {$i < 10} {incr i} {
    40     48       do_test 1.nExtra=$nExtra.i=$i.1 {
    41     49         faultsim_restore_and_reopen
    42     50       
    43     51         set fd [open crash.tcl w]
................................................................................
    59     67           }
    60     68           sqlite3_crash_now
    61     69         }]
    62     70         close $fd
    63     71       
    64     72         set r [catch { exec [info nameofexec] crash.tcl >@stdout } msg]
    65     73         list $r $msg
    66         -    } {1 {child process exited abnormally}}
           74  +    } "1 {$msg}"
    67     75     
    68     76       do_execsql_test 1.nExtra=$nExtra.i=$i.2 { 
    69     77         SELECT count(*) FROM t1;
    70     78         PRAGMA integrity_check;
    71     79       } {1 ok}
    72     80     } 
    73     81   }
    74     82   
    75     83   
    76     84   finish_test