summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-05-10 23:49:48 (GMT)
committerhobbs <hobbs>2000-05-10 23:49:48 (GMT)
commita413d4af1ac75229c582599b811c275f1aea186e (patch)
tree68c854cecd3000b0ce3a909895a2354faee84a96 /tests
parent62bb46cb777865b566d4f06bec15cb4b69b936e8 (diff)
downloadtcl-a413d4af1ac75229c582599b811c275f1aea186e.zip
tcl-a413d4af1ac75229c582599b811c275f1aea186e.tar.gz
tcl-a413d4af1ac75229c582599b811c275f1aea186e.tar.bz2
test fix
Diffstat (limited to 'tests')
-rw-r--r--tests/opt.test10
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/opt.test b/tests/opt.test
index f7491f1..a7e0a11 100644
--- a/tests/opt.test
+++ b/tests/opt.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: opt.test,v 1.6 2000/04/10 17:19:02 ericm Exp $
+# RCS: @(#) $Id: opt.test,v 1.7 2000/05/10 23:49:48 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -33,9 +33,11 @@ test opt-1.1 {OptKeyRegister / check that auto allocation is skipping existing k
} "$n [expr $n+1] [expr $n+2]"
test opt-2.1 {OptKeyDelete} {
- list [::tcl::OptKeyRegister {} testkey] [::tcl::OptKeyDelete testkey] \
- [catch {::tcl::OptKeyDelete testkey} msg] $msg;
-} {testkey {} 1 {can't unset "OptDesc(testkey)": no such element in array}}
+ list [::tcl::OptKeyRegister {} testkey] \
+ [info exists ::tcl::OptDesc(testkey)] \
+ [::tcl::OptKeyDelete testkey] \
+ [info exists ::tcl::OptDesc(testkey)]
+} {testkey 1 {} 0}
test opt-3.1 {OptParse / temp key is removed} {