Fossil

Check-in [02430597]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed a Tcl logic error committed with [33efa2fa].
Downloads: Tarball | ZIP 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.709
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
Unified Diff Ignore Whitespace Patch
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
︙︙