summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-11-21 19:53:40 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-11-21 19:53:40 (GMT)
commit59ae2a6c2b08e679a8f5aa457d4a09fcf5442e35 (patch)
tree428defb0bae34a485d55dd02421cb40cc18a393c
parentac3c3863608b65712752d23e59f4fcd85143aae1 (diff)
downloadtcl-59ae2a6c2b08e679a8f5aa457d4a09fcf5442e35.zip
tcl-59ae2a6c2b08e679a8f5aa457d4a09fcf5442e35.tar.gz
tcl-59ae2a6c2b08e679a8f5aa457d4a09fcf5442e35.tar.bz2
another fix for test trace-8.8
-rw-r--r--tests/trace.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/trace.test b/tests/trace.test
index d883008..b82b399 100644
--- a/tests/trace.test
+++ b/tests/trace.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: trace.test,v 1.13 2001/11/21 17:37:49 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.14 2001/11/21 19:53:40 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -497,6 +497,7 @@ test trace-8.8 {error returns from traces} {
for {set y 0} {$y<100} {incr y} {
catch {set x junk}
}
+ unset x
} {}
# Check to see that variables are expunged before trace