summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-10-05 16:37:27 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-10-05 16:37:27 (GMT)
commit1484ae31ede8ff92efccc22d56f4ff71806cc55d (patch)
treee81163c7d115c50b726d77a029fdedaa12d5aa4d /tests
parentbfd2f2fbf7a0c7fb68ded3c44b169cb5ce97c24f (diff)
downloadtcl-1484ae31ede8ff92efccc22d56f4ff71806cc55d.zip
tcl-1484ae31ede8ff92efccc22d56f4ff71806cc55d.tar.gz
tcl-1484ae31ede8ff92efccc22d56f4ff71806cc55d.tar.bz2
3574819 Increase test robustness by creating files in fresh directory to
reduce trouble with any existing files in an existing directory.
Diffstat (limited to 'tests')
-rw-r--r--tests/fileName.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 6dd1cb4..51f00d1 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -749,7 +749,7 @@ test filename-11.13 {Tcl_GlobCmd} {
} [file join $env(HOME)]
set oldpwd [pwd]
set oldhome $env(HOME)
-cd [temporaryDirectory]
+catch {cd [makeDirectory tcl[pid]]}
set env(HOME) [pwd]
file delete -force globTest
file mkdir globTest/a1/b1
@@ -1616,6 +1616,7 @@ catch {file delete -force C:/globTest}
cd [temporaryDirectory]
file delete -force globTest
cd $oldpwd
+catch {removeDirectory tcl[pid]}
set env(HOME) $oldhome
if {[testConstraint testsetplatform]} {
testsetplatform $platform