database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Fix another problem in test script rbudiff.test.

Browse Source 
FossilOrigin-Name: 41c29c123ff347db720ed1a541c0b2ffc04670aa
This commit is contained in:
dan
2016-03-19 15:13:59 +00:00
parent 1e8dae0e43
commit 49aed58b7f
3 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/tester.tcl
View File

@ -2145,7 +2145,7 @@ proc test_find_binary {nm} {
set ret [file normalize [file join $::cmdlinearg(TESTFIXTURE_HOME) $ret]]
if {![file executable $ret]} {
finish_test
return -code return
return ""
}
return $ret
}
@ -2155,7 +2155,9 @@ proc test_find_binary {nm} {
# [finish_test ; return] in the callers context.
#
proc test_find_cli {} {
uplevel test_find_binary sqlite3
set cli [test_find_binary sqlite3]
if {$prog==""} { return -code return }
return $prog
}
# Find the name of the 'sqldiff' executable (e.g. "sqlite3.exe") to use for
@ -2163,7 +2165,9 @@ proc test_find_cli {} {
# [finish_test ; return] in the callers context.
#
proc test_find_sqldiff {} {
uplevel test_find_binary sqldiff
set prog [test_find_binary sqldiff]
if {$prog==""} { return -code return }
return $prog
}