summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-12-29 16:28:57 (GMT)
committerdas <das>2008-12-29 16:28:57 (GMT)
commit0bef2ed4862e1471d93ca4b8afc842ba3bf281b2 (patch)
tree324d515150057940e1d44d92f9aa75c3c6519fa8
parentdf69dd21dce7f06aaaa7fc60c6d2208c71655719 (diff)
downloadtk-0bef2ed4862e1471d93ca4b8afc842ba3bf281b2.zip
tk-0bef2ed4862e1471d93ca4b8afc842ba3bf281b2.tar.gz
tk-0bef2ed4862e1471d93ca4b8afc842ba3bf281b2.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..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]