Fossil SCM
Place the test log file in the current directory, not the directory containing the test files.
Commit
a675783882d629080b061bd488de1ba85c5ae7c8
Parent
597c738e8958732…
1 file changed
+3
-2
+3
-2
| --- test/tester.tcl | ||
| +++ test/tester.tcl | ||
| @@ -21,10 +21,11 @@ | ||
| 21 | 21 | # |
| 22 | 22 | # Where ../test/tester.tcl is the name of this file and ../bld/fossil |
| 23 | 23 | # is the name of the executable to be tested. |
| 24 | 24 | # |
| 25 | 25 | |
| 26 | +set testrundir [pwd] | |
| 26 | 27 | set testdir [file normalize [file dir $argv0]] |
| 27 | 28 | set fossilexe [file normalize [lindex $argv 0]] |
| 28 | 29 | set argv [lrange $argv 1 end] |
| 29 | 30 | |
| 30 | 31 | set i [lsearch $argv -halt] |
| @@ -59,11 +60,11 @@ | ||
| 59 | 60 | |
| 60 | 61 | # start protocol |
| 61 | 62 | # |
| 62 | 63 | proc protInit {cmd} { |
| 63 | 64 | if {$::PROT} { |
| 64 | - set out [open [file join $::testdir prot] w] | |
| 65 | + set out [open [file join $::testrundir prot] w] | |
| 65 | 66 | fconfigure $out -translation platform |
| 66 | 67 | puts $out "starting tests with: $cmd" |
| 67 | 68 | close $out |
| 68 | 69 | } |
| 69 | 70 | } |
| @@ -71,11 +72,11 @@ | ||
| 71 | 72 | # write protocol |
| 72 | 73 | # |
| 73 | 74 | proc protOut {msg} { |
| 74 | 75 | puts stdout $msg |
| 75 | 76 | if {$::PROT} { |
| 76 | - set out [open [file join $::testdir prot] a] | |
| 77 | + set out [open [file join $::testrundir prot] a] | |
| 77 | 78 | fconfigure $out -translation platform |
| 78 | 79 | puts $out $msg |
| 79 | 80 | close $out |
| 80 | 81 | } |
| 81 | 82 | } |
| 82 | 83 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -21,10 +21,11 @@ | |
| 21 | # |
| 22 | # Where ../test/tester.tcl is the name of this file and ../bld/fossil |
| 23 | # is the name of the executable to be tested. |
| 24 | # |
| 25 | |
| 26 | set testdir [file normalize [file dir $argv0]] |
| 27 | set fossilexe [file normalize [lindex $argv 0]] |
| 28 | set argv [lrange $argv 1 end] |
| 29 | |
| 30 | set i [lsearch $argv -halt] |
| @@ -59,11 +60,11 @@ | |
| 59 | |
| 60 | # start protocol |
| 61 | # |
| 62 | proc protInit {cmd} { |
| 63 | if {$::PROT} { |
| 64 | set out [open [file join $::testdir prot] w] |
| 65 | fconfigure $out -translation platform |
| 66 | puts $out "starting tests with: $cmd" |
| 67 | close $out |
| 68 | } |
| 69 | } |
| @@ -71,11 +72,11 @@ | |
| 71 | # write protocol |
| 72 | # |
| 73 | proc protOut {msg} { |
| 74 | puts stdout $msg |
| 75 | if {$::PROT} { |
| 76 | set out [open [file join $::testdir prot] a] |
| 77 | fconfigure $out -translation platform |
| 78 | puts $out $msg |
| 79 | close $out |
| 80 | } |
| 81 | } |
| 82 |
| --- test/tester.tcl | |
| +++ test/tester.tcl | |
| @@ -21,10 +21,11 @@ | |
| 21 | # |
| 22 | # Where ../test/tester.tcl is the name of this file and ../bld/fossil |
| 23 | # is the name of the executable to be tested. |
| 24 | # |
| 25 | |
| 26 | set testrundir [pwd] |
| 27 | set testdir [file normalize [file dir $argv0]] |
| 28 | set fossilexe [file normalize [lindex $argv 0]] |
| 29 | set argv [lrange $argv 1 end] |
| 30 | |
| 31 | set i [lsearch $argv -halt] |
| @@ -59,11 +60,11 @@ | |
| 60 | |
| 61 | # start protocol |
| 62 | # |
| 63 | proc protInit {cmd} { |
| 64 | if {$::PROT} { |
| 65 | set out [open [file join $::testrundir prot] w] |
| 66 | fconfigure $out -translation platform |
| 67 | puts $out "starting tests with: $cmd" |
| 68 | close $out |
| 69 | } |
| 70 | } |
| @@ -71,11 +72,11 @@ | |
| 72 | # write protocol |
| 73 | # |
| 74 | proc protOut {msg} { |
| 75 | puts stdout $msg |
| 76 | if {$::PROT} { |
| 77 | set out [open [file join $::testrundir prot] a] |
| 78 | fconfigure $out -translation platform |
| 79 | puts $out $msg |
| 80 | close $out |
| 81 | } |
| 82 | } |
| 83 |