diff options
| author | das <das> | 2008-12-29 16:28:57 (GMT) |
|---|---|---|
| committer | das <das> | 2008-12-29 16:28:57 (GMT) |
| commit | 0bef2ed4862e1471d93ca4b8afc842ba3bf281b2 (patch) | |
| tree | 324d515150057940e1d44d92f9aa75c3c6519fa8 | |
| parent | df69dd21dce7f06aaaa7fc60c6d2208c71655719 (diff) | |
| download | tk-0bef2ed4862e1471d93ca4b8afc842ba3bf281b2.zip tk-0bef2ed4862e1471d93ca4b8afc842ba3bf281b2.tar.gz tk-0bef2ed4862e1471d93ca4b8afc842ba3bf281b2.tar.bz2 | |
fixes for [temporaryDirectory] != [pwd]
| -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] |