diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/filebox.test | 5 |
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] |