database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Fix problems with some "crashsql" tests.

Browse Source 
FossilOrigin-Name: 0c8e2ede5c325aa7fef8e8587057ec8c865fc7cf3e974a2733066fbac640b983
This commit is contained in:
dan
2021-01-07 16:29:34 +00:00
parent c2dbf35f49
commit 5cb960b7af
4 changed files with 52 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/tester.tcl
View File

@ -1689,9 +1689,12 @@ proc crashsql {args} {
set cfile [string map {\\ \\\\} [file nativename [file join [get_pwd] $crashfile]]]
set f [open crash.tcl w]
puts $f "sqlite3_initialize ; sqlite3_shutdown"
puts $f "catch { install_malloc_faultsim 1 }"
puts $f "sqlite3_crash_enable 1 $dfltvfs"
puts $f "sqlite3_crashparams $blocksize $dc $crashdelay $cfile"
puts $f "sqlite3_test_control_pending_byte $::sqlite_pending_byte"
puts $f "autoinstall_test_functions"
# This block sets the cache size of the main database to 10
# pages. This is done in case the build is configured to omit
@ -1719,7 +1722,7 @@ proc crashsql {args} {
}
close $f
set r [catch {
exec [info nameofexec] crash.tcl >@stdout
exec [info nameofexec] crash.tcl >@stdout 2>@stdout
} msg]
# Windows/ActiveState TCL returns a slightly different