summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-12-29 16:28:59 (GMT)
committerdas <das>2008-12-29 16:28:59 (GMT)
commit888706493acf7d3efe5b9a332f54332d51811d72 (patch)
treee9acd85f0eae5818ce59c8ecb316f96646040116
parent6c5d3e95e15c117a57c6622bc416061aaed86ea2 (diff)
downloadtk-888706493acf7d3efe5b9a332f54332d51811d72.zip
tk-888706493acf7d3efe5b9a332f54332d51811d72.tar.gz
tk-888706493acf7d3efe5b9a332f54332d51811d72.tar.bz2
fixes for [temporaryDirectory] != [pwd]
-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..1d1e062 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.21.2.1 2008/12/29 16:28:59 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]