Fossil SCM
Fixed a Tcl logic error committed with [33efa2fa].
Commit
024305978f53f9fb6175a01bc9b0eabe22058459b148ad67b7804afc438b4f93
Parent
1a4e87dcc118aa5…
1 file changed
+2
-2
+2
-2
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -35,13 +35,13 @@ | ||
| 35 | 35 | |
| 36 | 36 | if {$::is_windows} { |
| 37 | 37 | if {[string length [file extension $fossilexe]] == 0} { |
| 38 | 38 | append fossilexe .exe |
| 39 | 39 | } |
| 40 | - set outside_fossil_repo ![file exists "$::testfiledir\\..\\_FOSSIL_"] | |
| 40 | + set outside_fossil_repo [expr ![file exists "$::testfiledir\\..\\_FOSSIL_"]] | |
| 41 | 41 | } else { |
| 42 | - set outside_fossil_repo ![file exists "$::testfiledir/../.fslckout"] | |
| 42 | + set outside_fossil_repo [expr ![file exists "$::testfiledir/../.fslckout"]] | |
| 43 | 43 | } |
| 44 | 44 | |
| 45 | 45 | set argv [lrange $argv 1 end] |
| 46 | 46 | |
| 47 | 47 | set i [lsearch $argv -keep] |
| 48 | 48 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -35,13 +35,13 @@ | |
| 35 | |
| 36 | if {$::is_windows} { |
| 37 | if {[string length [file extension $fossilexe]] == 0} { |
| 38 | append fossilexe .exe |
| 39 | } |
| 40 | set outside_fossil_repo ![file exists "$::testfiledir\\..\\_FOSSIL_"] |
| 41 | } else { |
| 42 | set outside_fossil_repo ![file exists "$::testfiledir/../.fslckout"] |
| 43 | } |
| 44 | |
| 45 | set argv [lrange $argv 1 end] |
| 46 | |
| 47 | set i [lsearch $argv -keep] |
| 48 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -35,13 +35,13 @@ | |
| 35 | |
| 36 | if {$::is_windows} { |
| 37 | if {[string length [file extension $fossilexe]] == 0} { |
| 38 | append fossilexe .exe |
| 39 | } |
| 40 | set outside_fossil_repo [expr ![file exists "$::testfiledir\\..\\_FOSSIL_"]] |
| 41 | } else { |
| 42 | set outside_fossil_repo [expr ![file exists "$::testfiledir/../.fslckout"]] |
| 43 | } |
| 44 | |
| 45 | set argv [lrange $argv 1 end] |
| 46 | |
| 47 | set i [lsearch $argv -keep] |
| 48 |