Fossil SCM
Normalize the the directory in which the Fossil being tested is found so relative paths also work.
Commit
25f7d3c1030fa4aae6d620e0191ef8fd1d1001c8
Parent
08197f963458d6c…
1 file changed
+2
+2
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -503,10 +503,12 @@ | ||
| 503 | 503 | $env(TEMP) : [file dirname [info script]]}] |
| 504 | 504 | |
| 505 | 505 | if {$tcl_platform(platform) eq "windows"} { |
| 506 | 506 | set tempPath [string map [list \\ /] $tempPath] |
| 507 | 507 | } |
| 508 | + | |
| 509 | +set tempPath [file normalize $tempPath] | |
| 508 | 510 | |
| 509 | 511 | if {[catch { |
| 510 | 512 | write_file [file join $tempPath temporary.txt] [clock seconds] |
| 511 | 513 | } error] != 0} { |
| 512 | 514 | error "could not write file to directory \"$tempPath\",\ |
| 513 | 515 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -503,10 +503,12 @@ | |
| 503 | $env(TEMP) : [file dirname [info script]]}] |
| 504 | |
| 505 | if {$tcl_platform(platform) eq "windows"} { |
| 506 | set tempPath [string map [list \\ /] $tempPath] |
| 507 | } |
| 508 | |
| 509 | if {[catch { |
| 510 | write_file [file join $tempPath temporary.txt] [clock seconds] |
| 511 | } error] != 0} { |
| 512 | error "could not write file to directory \"$tempPath\",\ |
| 513 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -503,10 +503,12 @@ | |
| 503 | $env(TEMP) : [file dirname [info script]]}] |
| 504 | |
| 505 | if {$tcl_platform(platform) eq "windows"} { |
| 506 | set tempPath [string map [list \\ /] $tempPath] |
| 507 | } |
| 508 | |
| 509 | set tempPath [file normalize $tempPath] |
| 510 | |
| 511 | if {[catch { |
| 512 | write_file [file join $tempPath temporary.txt] [clock seconds] |
| 513 | } error] != 0} { |
| 514 | error "could not write file to directory \"$tempPath\",\ |
| 515 |