summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/filebox.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/filebox.test b/tests/filebox.test
index 1cf2549..cf8daba 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: filebox.test,v 1.21 2007/12/13 15:27:54 dgp Exp $
+# RCS: @(#) $Id: filebox.test,v 1.22 2008/12/29 16:28:57 das Exp $
#
package require tcltest 2.1
@@ -212,7 +212,7 @@ foreach mode $modes {
} ""
set fileName $tmpFile
- set fileDir [pwd]
+ set fileDir [tcltest::temporaryDirectory]
set pathName [file join $fileDir $fileName]
test filebox-2.2-$mode "tk_getOpenFile command" nonUnixUserInteraction {
@@ -226,6 +226,7 @@ foreach mode $modes {
-parent $parent -initialdir $fileDir]
} $pathName
test filebox-2.4-$mode "tk_getOpenFile command" nonUnixUserInteraction {
+ cd $fileDir
ToPressButton $parent ok
set choice [tk_getOpenFile -title "Enter \"$fileName\" and press Ok" \
-parent $parent -initialdir . -initialfile $fileName]