diff options
| author | hobbs <hobbs> | 2000-05-10 23:49:48 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-10 23:49:48 (GMT) |
| commit | a413d4af1ac75229c582599b811c275f1aea186e (patch) | |
| tree | 68c854cecd3000b0ce3a909895a2354faee84a96 | |
| parent | 62bb46cb777865b566d4f06bec15cb4b69b936e8 (diff) | |
| download | tcl-a413d4af1ac75229c582599b811c275f1aea186e.zip tcl-a413d4af1ac75229c582599b811c275f1aea186e.tar.gz tcl-a413d4af1ac75229c582599b811c275f1aea186e.tar.bz2 | |
test fix
| -rw-r--r-- | tests/opt.test | 10 |
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} { |