From a413d4af1ac75229c582599b811c275f1aea186e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 10 May 2000 23:49:48 +0000
Subject: test fix

---
 tests/opt.test | 10 ++++++----
 1 file 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} {
-- 
cgit v0.12