Index: test/backcompat.test ================================================================== --- test/backcompat.test +++ test/backcompat.test @@ -37,11 +37,11 @@ set pattern "[file tail [info nameofexec]]?*" if {$tcl_platform(platform)=="windows"} { set pattern [string map {\.exe {}} $pattern] } foreach file [glob -nocomplain $pattern] { - if {[file executable $file] && } {lappend binaries $file} + if {[file executable $file]} {lappend binaries $file} } if {[llength $binaries]==0} { puts "WARNING: No historical binaries to test against." puts "WARNING: No backwards-compatibility tests have been run." finish_test Index: test/lock_common.tcl ================================================================== --- test/lock_common.tcl +++ test/lock_common.tcl @@ -65,12 +65,12 @@ # channel name is returned that may be passed as the first argument to proc # 'testfixture' to execute a command. The child testfixture process is shut # down by closing the channel. proc launch_testfixture {{prg ""}} { write_main_loop - if {$prg eq ""} { set prg [file join . [info nameofexec]] } - if {$prg eq ""} { set prg [file join . testfixture] } + if {$prg eq ""} { set prg [info nameofexec] } + if {$prg eq ""} { set prg testfixture } if {[file tail $prg]==$prg} { set prg [file join . $prg] } set chan [open "|$prg tf_main.tcl" r+] fconfigure $chan -buffering line set rc [catch { testfixture $chan "sqlite3_test_control_pending_byte $::sqlite_pending_byte"