diff options
| author | dgp <dgp@noemail.net> | 2004-12-08 03:02:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2004-12-08 03:02:51 (GMT) |
| commit | 992428556af8f13be52512789a74cb6d8da436a4 (patch) | |
| tree | 0d85c25f22d5dc509dc72c795506d36d9ae793f9 /tests/choosedir.test | |
| parent | 96028f4f58e5343fcadf3b8b632b68f2ec67242a (diff) | |
| download | tk-992428556af8f13be52512789a74cb6d8da436a4.zip tk-992428556af8f13be52512789a74cb6d8da436a4.tar.gz tk-992428556af8f13be52512789a74cb6d8da436a4.tar.bz2 | |
* tests/canvPs.test: Cleaned up the matching of [makeFile] and
* tests/choosedir.test: [removeFile] commands as indicated by the
* tests/filebox.test: results of a -debug 1 run of the test suite.
* tests/imgPPM.test: Tk test suite is now -debug 1 clean. This
* tests/imgPhoto.test: completes fixing [1078648].
* tests/listbox.test:
* tests/main.test:
FossilOrigin-Name: 27f85236860c30c83c0d859b2c5b807868dc8557
Diffstat (limited to 'tests/choosedir.test')
| -rw-r--r-- | tests/choosedir.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test index 540c686..d63d091 100644 --- a/tests/choosedir.test +++ b/tests/choosedir.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: choosedir.test,v 1.13 2004/06/24 12:45:42 dkf Exp $ +# RCS: @(#) $Id: choosedir.test,v 1.14 2004/12/08 03:02:53 dgp Exp $ # package require tcltest 2.1 @@ -81,10 +81,9 @@ proc SendButtonPress {parent btn type} { # #---------------------------------------------------------------------- # Make a dir for us to rely on for tests -makeDirectory choosedirTest -set dir [pwd] +set real [makeDirectory choosedirTest] +set dir [file dirname $real] set fake [file join $dir non-existant] -set real [file join $dir choosedirTest] set parent . @@ -145,5 +144,6 @@ test choosedir-5.1 "tk_chooseDirectory, handles {} entry text" unix { } $real # cleanup +removeDirectory choosedirTest cleanupTests return |