summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorericm <ericm>2000-03-03 00:14:33 (GMT)
committerericm <ericm>2000-03-03 00:14:33 (GMT)
commit27819c639da070236830ec6c142e44fd6f67a65a (patch)
tree3894e1a70b63417c38a8a18f5c44d06e3a1528a3 /tests
parentdce4aa48ee2b710aa9a7de6fc2f232c7d19e59f9 (diff)
downloadtk-27819c639da070236830ec6c142e44fd6f67a65a.zip
tk-27819c639da070236830ec6c142e44fd6f67a65a.tar.gz
tk-27819c639da070236830ec6c142e44fd6f67a65a.tar.bz2
Added more tests.
Diffstat (limited to 'tests')
-rw-r--r--tests/choosedir.test59
1 files changed, 43 insertions, 16 deletions
diff --git a/tests/choosedir.test b/tests/choosedir.test
index 1ca46f1..f6987f8 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.3 2000/03/02 23:45:12 hobbs Exp $
+# RCS: @(#) $Id: choosedir.test,v 1.4 2000/03/03 00:14:33 ericm Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -84,6 +84,14 @@ set err(wrongNumArgs) "wrong # args: should be \"$err(usage)\""
set err(valueMissing) "value for \"%s\" missing: should be \"$err(usage)\""
set err(unknownOpt) "unknown option \"%s\": should be \"$err(usage)\""
+# Make a dir for us to rely on for tests
+makeDirectory choosedirTest
+set dir $::tcltest::temporaryDirectory
+set fake [file join $dir non-existant]
+set real [file join $dir choosedirTest]
+
+set parent .
+
foreach opt {-initialdir -mustexist -parent -title} {
test filebox-1.1 "tk_chooseDirectory command" {
list [catch {tk_chooseDirectory $opt} msg] $msg
@@ -96,26 +104,45 @@ test filebox-1.3 "tk_chooseDirectory command" {
list [catch {tk_chooseDirectory -parent foo.bar} msg] $msg
} {1 {bad window path name "foo.bar"}}
-set parent .
-set initialdir [pwd]
-set pathName [pwd]
-set otherdir "/tmp"
-test filebox-2.1 "tk_chooseDirectory command" {unixOnly} {
+test choosedir-2.1 "tk_chooseDirectory command, cancel gives null" {unixOnly} {
ToPressButton $parent cancel
tk_chooseDirectory -title "Press Cancel" -parent $parent
} ""
-test filebox-2.2 "tk_chooseDirectory command" {unixOnly} {
+
+test choosedir-3.1 "tk_chooseDirectory -mustexist 1" {unixOnly} {
+ ToEnterDirByKey $parent $fake
+ after 25
+ ToEnterDirByKey $parent $real
+ tk_chooseDirectory \
+ -title "Enter \"$fake\", press OK, enter \"$real\", press OK" \
+ -parent $parent -mustexist 1
+} $real
+test choosedir-3.2 "tk_chooseDirectory -mustexist 0" {unixOnly} {
+ ToEnterDirByKey $parent $fake
+ tk_chooseDirectory \
+ -title "Enter \"$fake\", press OK" \
+ -parent $parent -mustexist 0
+} $fake
+
+test choosedir-4.1 "tk_chooseDirectory command, initialdir" {unixOnly} {
+ ToPressButton $parent ok
+ tk_chooseDirectory -title "Press Ok" -parent $parent -initialdir $real
+} $real
+test choosedir-4.2 "tk_chooseDirectory command, initialdir" {unixOnly} {
+ ToEnterDirByKey $parent $fake
+ tk_chooseDirectory \
+ -title "Enter \"$fake\" and press Ok" \
+ -parent $parent -initialdir $real
+} $fake
+test choosedir-4.3 "tk_chooseDirectory, -initialdir {}" {unixOnly} {
ToPressButton $parent ok
- set choice [tk_chooseDirectory -title "Press Ok" \
- -parent $parent -initialdir $initialdir]
-} $initialdir
-test filebox-2.3 "tk_chooseDirectory command" {unixOnly} {
- ToEnterDirByKey $parent $otherdir
- set choice [tk_chooseDirectory \
- -title "Enter \"$otherdir\" and press Ok" \
- -parent $parent -initialdir $initialdir]
-} $otherdir
+ tk_chooseDirectory \
+ -title "Press OK" \
+ -parent $parent -initialdir ""
+} [pwd]
+
+
# cleanup
::tcltest::cleanupTests