From 888706493acf7d3efe5b9a332f54332d51811d72 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Mon, 29 Dec 2008 16:28:59 +0000
Subject: fixes for [temporaryDirectory] != [pwd]

---
 tests/filebox.test | 5 +++--
 1 file 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]
-- 
cgit v0.12