Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixed a Tcl logic error committed with [33efa2fa]. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | wrap-run_in_checkout |
| Files: | files | file ages | folders |
| SHA3-256: | 024305978f53f9fb6175a01bc9b0eabe22058459b148ad67b7804afc438b4f93 |
| User & Date: | wyoung 2018-09-03 06:13:30 |
Context
|
2018-09-03
| ||
| 06:15 | The new test_block_in_checkout proc in tester.tcl was not setting the CODE and RESULT global variables when it skipped a test, so there was a chance that a test would end up checking the prior values and throw a false positive. check-in: 2aaee484 user: wyoung tags: wrap-run_in_checkout | |
| 06:13 | Fixed a Tcl logic error committed with [33efa2fa]. check-in: 02430597 user: wyoung tags: wrap-run_in_checkout | |
| 02:57 | Extracted the logic that was in tester.tcl's new outside_fossil_repo proc to the global level which just saves the result to a global variable so the logic doesn't have to be re-run for each test that relies on it. The result doesn't change from one call to the next, as you'd hope for a proc without parameters. check-in: 1a4e87dc user: wyoung tags: wrap-run_in_checkout | |
Changes
Changes to test/tester.tcl.
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
set fossilexe [file normalize [lindex $argv 0]]
set is_windows [expr {$::tcl_platform(platform) eq "windows"}]
if {$::is_windows} {
if {[string length [file extension $fossilexe]] == 0} {
append fossilexe .exe
}
set outside_fossil_repo ![file exists "$::testfiledir\\..\\_FOSSIL_"]
} else {
set outside_fossil_repo ![file exists "$::testfiledir/../.fslckout"]
}
set argv [lrange $argv 1 end]
set i [lsearch $argv -keep]
if {$i>=0} {
set KEEP 1
|
| | |
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
set fossilexe [file normalize [lindex $argv 0]]
set is_windows [expr {$::tcl_platform(platform) eq "windows"}]
if {$::is_windows} {
if {[string length [file extension $fossilexe]] == 0} {
append fossilexe .exe
}
set outside_fossil_repo [expr ![file exists "$::testfiledir\\..\\_FOSSIL_"]]
} else {
set outside_fossil_repo [expr ![file exists "$::testfiledir/../.fslckout"]]
}
set argv [lrange $argv 1 end]
set i [lsearch $argv -keep]
if {$i>=0} {
set KEEP 1
|