diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-05-23 17:34:48 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-05-23 17:34:48 (GMT) |
| commit | 0b91402efd4f090b076ac7f71ed939ed664400b2 (patch) | |
| tree | c1834b8cace8654026ee20f8fd75ea3f340a902c /tests/choosedir.test | |
| parent | 08844409ecd112b5d70f7c06e5a05b015e3022c4 (diff) | |
| download | tk-0b91402efd4f090b076ac7f71ed939ed664400b2.zip tk-0b91402efd4f090b076ac7f71ed939ed664400b2.tar.gz tk-0b91402efd4f090b076ac7f71ed939ed664400b2.tar.bz2 | |
First step towards improving test style. Also start using Tcl 8.5 features.
Diffstat (limited to 'tests/choosedir.test')
| -rw-r--r-- | tests/choosedir.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test index 98831df..d72dbcd 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.11 2003/04/01 21:06:19 dgp Exp $ +# RCS: @(#) $Id: choosedir.test,v 1.12 2004/05/23 17:34:48 dkf Exp $ # package require tcltest 2.1 @@ -89,7 +89,7 @@ set real [file join $dir choosedirTest] set parent . foreach opt {-initialdir -mustexist -parent -title} { - test choosedir-1.1 "tk_chooseDirectory command" unixOnly { + test choosedir-1.1$opt "tk_chooseDirectory command" unixOnly { list [catch {tk_chooseDirectory $opt} msg] $msg } [list 1 "value for \"$opt\" missing"] } |