zishuo/go-sqlite
1
0
Fork 0
mirror of https://github.com/glebarez/go-sqlite.git synced 2025-10-22 07:20:01 +08:00
Code Issues Packages Projects Releases Wiki Activity

patch Tcl tests, darwin rc2

Browse Source 
For details see

  https://sqlite.org/forum/forumpost/0244674f4e?t=h

and

  https://sqlite.org/src/info/0c8e2ede5c325aa7
This commit is contained in:
Jan Mercl
2021-01-07 22:48:37 +01:00
parent 1c17040813
commit 48fa7fd005
2 changed files with 44 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
testdata/tcl/tester.tcl vendored
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