diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-11-20 20:56:50 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-11-20 20:56:50 (GMT) |
| commit | 8c233c93c1ce27186c71a73472267447eab13f1b (patch) | |
| tree | 8278348eaf14ecdb81e3cecff20008efa49f2ef4 /tests/winPipe.test | |
| parent | 0e5ff410218f872fe9ff61301ffa96c489f0d788 (diff) | |
| download | tcl-8c233c93c1ce27186c71a73472267447eab13f1b.zip tcl-8c233c93c1ce27186c71a73472267447eab13f1b.tar.gz tcl-8c233c93c1ce27186c71a73472267447eab13f1b.tar.bz2 | |
win: fixed pwd-related test-cases in winPipe.test: several test-cases expect current directory equals [temporaryDirectory]
Diffstat (limited to 'tests/winPipe.test')
| -rw-r--r-- | tests/winPipe.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/winPipe.test b/tests/winPipe.test index 6a02147..70d4843 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -17,9 +17,13 @@ namespace import -force ::tcltest::* unset -nocomplain path -set bindir [file join [pwd] [file dirname [info nameofexecutable]]] +set org_pwd [pwd] +set bindir [file join $org_pwd [file dirname [info nameofexecutable]]] set cat32 [file join $bindir cat32.exe] +# several test-cases here expect current directory == [temporaryDirectory]: +cd [temporaryDirectory] + testConstraint exec [llength [info commands exec]] testConstraint testexcept [llength [info commands testexcept]] testConstraint cat32 [file exists $cat32] @@ -600,4 +604,6 @@ if {[catch {set env(TEMP) $env_temp}]} { file delete big little stdout stderr nothing echoArgs.tcl echoArgs.bat file delete -force [file join [temporaryDirectory] test(Dir)Check] ::tcltest::cleanupTests +# back to original directory: +cd $org_pwd; unset org_pwd return |