170-cwd.exp (modules-5.1.1.tar.bz2) | : | 170-cwd.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 39 | skipping to change at line 39 | |||
# - when running on Cygwin/MinGW/MSYS which are unaffected by cwd removal | # - when running on Cygwin/MinGW/MSYS which are unaffected by cwd removal | |||
# - when running on Tcl 8.5 where test outputs are saved in files located in | # - when running on Tcl 8.5 where test outputs are saved in files located in | |||
# current working directory | # current working directory | |||
if {![info exists env(COVERAGE)] && ![regexp {^(CYGWIN|MINGW|MSYS_NT).*}\ | if {![info exists env(COVERAGE)] && ![regexp {^(CYGWIN|MINGW|MSYS_NT).*}\ | |||
$tcl_platform(os)] && [cmpversion $tclsh_version 8.6] > -1} { | $tcl_platform(os)] && [cmpversion $tclsh_version 8.6] > -1} { | |||
# change MODULECMD for the test to make it an absolute path name | # change MODULECMD for the test to make it an absolute path name | |||
set MODULECMD $env(TESTSUITEDIR)/../$MODULECMD | set MODULECMD $env(TESTSUITEDIR)/../$MODULECMD | |||
# create a temporary current working directory and remove it after changing to it | # create a temporary current working directory and remove it after changing to it | |||
set ORIG_CWD [pwd] | ||||
file mkdir cwdtest | file mkdir cwdtest | |||
cd cwdtest | cd cwdtest | |||
file delete ../cwdtest | file delete ../cwdtest | |||
set tserr "$error_msgs: error getting working directory name: no such file o r directory" | set tserr "$error_msgs: error getting working directory name: no such file o r directory" | |||
testouterr_cmd sh {load ./unk} ERR $tserr | testouterr_cmd sh {load ./unk} ERR $tserr | |||
# move back to testsuite working directory | # move back to testsuite working directory | |||
cd $ORIG_CWD | cd $ORIG_CWD | |||
unset MODULECMD | unset MODULECMD | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 0 lines changed or added |