diff options
| author | das <das> | 2008-12-29 16:28:59 (GMT) |
|---|---|---|
| committer | das <das> | 2008-12-29 16:28:59 (GMT) |
| commit | 888706493acf7d3efe5b9a332f54332d51811d72 (patch) | |
| tree | e9acd85f0eae5818ce59c8ecb316f96646040116 | |
| parent | 6c5d3e95e15c117a57c6622bc416061aaed86ea2 (diff) | |
| download | tk-888706493acf7d3efe5b9a332f54332d51811d72.zip tk-888706493acf7d3efe5b9a332f54332d51811d72.tar.gz tk-888706493acf7d3efe5b9a332f54332d51811d72.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..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] |