diff options
| author | das <das> | 2008-12-29 16:28:59 (GMT) |
|---|---|---|
| committer | das <das> | 2008-12-29 16:28:59 (GMT) |
| commit | e96b8fc5fadfdc6ba0d439fdaffd6baacefd5d79 (patch) | |
| tree | e9acd85f0eae5818ce59c8ecb316f96646040116 /tests/filebox.test | |
| parent | baeef1ccd75baba9316582aee02cb82c2b84631f (diff) | |
| download | tk-e96b8fc5fadfdc6ba0d439fdaffd6baacefd5d79.zip tk-e96b8fc5fadfdc6ba0d439fdaffd6baacefd5d79.tar.gz tk-e96b8fc5fadfdc6ba0d439fdaffd6baacefd5d79.tar.bz2 | |
fixes for [temporaryDirectory] != [pwd]
Diffstat (limited to 'tests/filebox.test')
| -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..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] |