summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tcltest.test16
1 files changed, 9 insertions, 7 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index b644966..cf43030 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -6,7 +6,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.test,v 1.49 2005/02/24 18:05:42 dgp Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.50 2005/02/24 21:02:58 dgp Exp $
# Note that there are several places where the value of
# tcltest::currentFailure is stored/reset in the -setup/-cleanup
@@ -747,16 +747,18 @@ test tcltest-9.4 {skipFiles} {
}
test tcltest-9.5 {GetMatchingFiles: Bug 1119798} -setup {
- file copy [file join [file dirname [info script]] all.tcl] [temporaryDirectory]
- makeDirectory foo
- makeFile {} fee
+ set d [makeDirectory tmp]
+ makeDirectory foo $d
+ makeFile {} fee $d
+ file copy [file join [file dirname [info script]] all.tcl] $d
} -body {
slave msg [file join [temporaryDirectory] all.tcl] -file f*
regexp {exiting with errors:} $msg
} -cleanup {
- removeFile fee
- removeDirectory foo
- file delete [file join [temporaryDirectory] all.tcl]
+ file delete [file join $d all.tcl]
+ removeFile fee $d
+ removeDirectory foo $d
+ removeDirectory tmp
} -result 0
# -preservecore, [preserveCore]