Fossil

Check-in [25f7d3c1]
Login

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

Overview
Comment:Normalize the the directory in which the Fossil being tested is found so relative paths also work.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:25f7d3c1030fa4aae6d620e0191ef8fd1d1001c8
User & Date: andybradford 2016-02-06 20:35:39
Context
2016-02-06
22:41
Fixed json.test problem with fossil configured without --json. Removed the knownBug marker from the test json-wiki-diff-diff since [08197f96] fixed the bug it identified. check-in: c35152a5 user: rberteig tags: trunk
20:35
Normalize the the directory in which the Fossil being tested is found so relative paths also work. check-in: 25f7d3c1 user: andybradford tags: trunk
19:17
Swapped incorrect diff argument order for /json/wiki/diff. check-in: 08197f96 user: stephan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/tester.tcl.

501
502
503
504
505
506
507


508
509
510
511
512
513
514

set tempPath [expr {[info exists env(TEMP)] ? \
    $env(TEMP) : [file dirname [info script]]}]

if {$tcl_platform(platform) eq "windows"} {
  set tempPath [string map [list \\ /] $tempPath]
}



if {[catch {
  write_file [file join $tempPath temporary.txt] [clock seconds]
} error] != 0} {
  error "could not write file to directory \"$tempPath\",\
please set TEMP variable in environment: $error"
}







>
>







501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516

set tempPath [expr {[info exists env(TEMP)] ? \
    $env(TEMP) : [file dirname [info script]]}]

if {$tcl_platform(platform) eq "windows"} {
  set tempPath [string map [list \\ /] $tempPath]
}

set tempPath [file normalize $tempPath]

if {[catch {
  write_file [file join $tempPath temporary.txt] [clock seconds]
} error] != 0} {
  error "could not write file to directory \"$tempPath\",\
please set TEMP variable in environment: $error"
}