diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-11-21 17:37:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-11-21 17:37:49 (GMT) |
| commit | ac3c3863608b65712752d23e59f4fcd85143aae1 (patch) | |
| tree | 782cbb26e7a2d7b443d57caa2ce58c8a0a6739d4 | |
| parent | ce8d99c1e94271f0d1f544785308d77954153eeb (diff) | |
| download | tcl-ac3c3863608b65712752d23e59f4fcd85143aae1.zip tcl-ac3c3863608b65712752d23e59f4fcd85143aae1.tar.gz tcl-ac3c3863608b65712752d23e59f4fcd85143aae1.tar.bz2 | |
* corrected test trace-8.8 for Bug 219393
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | tests/trace.test | 4 |
2 files changed, 4 insertions, 2 deletions
@@ -1,5 +1,7 @@ 2001-11-21 Don Porter <dgp@users.sourceforge.net> + * tests/trace.test (trace-8.8): Corrected test for Bug 219393. + * generic/tclBasic.c (Tcl_DeleteCommandFromToken,CallCommandTraces): * generic/tclCmdMZ>c (Tcl_UntraceCommand): Added Tcl_Preserve and Tcl_Release calls to prevent deletion of CommandTrace structures diff --git a/tests/trace.test b/tests/trace.test index f28b50e..d883008 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.12 2001/11/19 14:35:55 dkf Exp $ +# RCS: @(#) $Id: trace.test,v 1.13 2001/11/21 17:37:49 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -493,7 +493,7 @@ test trace-8.8 {error returns from traces} { } catch {unset ::x ::y} set x junk - trace add variable ::x write [list junk $x] + trace add variable ::x write [list foo $x] for {set y 0} {$y<100} {incr y} { catch {set x junk} } |