Fossil SCM
On Windows, normalize the Fossil executable file extension used by the test suite.
Commit
74ce4181d90f62456700b9d742f9506dca2a3cf6
Parent
b8c7af5bd9b503f…
1 file changed
+6
+6
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -25,10 +25,16 @@ | ||
| 25 | 25 | |
| 26 | 26 | set testfiledir [file normalize [file dirname [info script]]] |
| 27 | 27 | set testrundir [pwd] |
| 28 | 28 | set testdir [file normalize [file dirname $argv0]] |
| 29 | 29 | set fossilexe [file normalize [lindex $argv 0]] |
| 30 | + | |
| 31 | +if {$tcl_platform(platform) eq "windows" && \ | |
| 32 | + [string length [file extension $fossilexe]] == 0} { | |
| 33 | + append fossilexe .exe | |
| 34 | +} | |
| 35 | + | |
| 30 | 36 | set argv [lrange $argv 1 end] |
| 31 | 37 | |
| 32 | 38 | set i [lsearch $argv -halt] |
| 33 | 39 | if {$i>=0} { |
| 34 | 40 | set HALT 1 |
| 35 | 41 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -25,10 +25,16 @@ | |
| 25 | |
| 26 | set testfiledir [file normalize [file dirname [info script]]] |
| 27 | set testrundir [pwd] |
| 28 | set testdir [file normalize [file dirname $argv0]] |
| 29 | set fossilexe [file normalize [lindex $argv 0]] |
| 30 | set argv [lrange $argv 1 end] |
| 31 | |
| 32 | set i [lsearch $argv -halt] |
| 33 | if {$i>=0} { |
| 34 | set HALT 1 |
| 35 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -25,10 +25,16 @@ | |
| 25 | |
| 26 | set testfiledir [file normalize [file dirname [info script]]] |
| 27 | set testrundir [pwd] |
| 28 | set testdir [file normalize [file dirname $argv0]] |
| 29 | set fossilexe [file normalize [lindex $argv 0]] |
| 30 | |
| 31 | if {$tcl_platform(platform) eq "windows" && \ |
| 32 | [string length [file extension $fossilexe]] == 0} { |
| 33 | append fossilexe .exe |
| 34 | } |
| 35 | |
| 36 | set argv [lrange $argv 1 end] |
| 37 | |
| 38 | set i [lsearch $argv -halt] |
| 39 | if {$i>=0} { |
| 40 | set HALT 1 |
| 41 |