database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-12-24 14:17:58 +03:00
Code Activity

Modify logging code in test_osinst.c. No changes to production code. (CVS 5120)

Browse Source 
FossilOrigin-Name: 85c54a16c7aecea3e0e5040ee8aca06d8b6a2b2b
This commit is contained in:
danielk1977
2008-05-12 07:42:20 +00:00
parent f19dfc4e0a
commit 27467047e9
5 changed files with 75 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/tester.tcl
View File

@@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.121 2008/05/08 16:51:12 danielk1977 Exp $
# $Id: tester.tcl,v 1.122 2008/05/12 07:42:20 danielk1977 Exp $
#
# What for user input before continuing. This gives an opportunity
@@ -73,7 +73,7 @@ for {set i 0} {$i<[llength $argv]} {incr i} {
proc ostrace_call {zCall nClick zFile i32 i64} {
set s "INSERT INTO ostrace VALUES( '$zCall', $nClick, '$zFile', $i32, $i64);"
set s "INSERT INTO ostrace VALUES('$zCall', $nClick, '$zFile', $i32, $i64);"
puts $::ostrace_fd $s
}
@@ -94,8 +94,12 @@ for {set i 0} {$i<[llength $argv]} {incr i} {
}
if {[lindex $argv $i] eq "--binarylog"} {
set tester_do_binarylog 1
# sqlite3_simulate_device -char safe_append
# sqlite3_instvfs binarylog -default -parent devsym binarylog ostrace.bin
sqlite3_instvfs binarylog -default binarylog ostrace.bin
set argv [lreplace $argv $i $i]
sqlite3_instvfs marker binarylog "$argv0 $argv"
}
}