diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-09-29 21:28:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-09-29 21:28:09 (GMT) |
| commit | ab6eb1243a00175b523c0b8ca52aa43f6edec906 (patch) | |
| tree | 153b8565ca6a819b51e44312f325ff57e430d966 | |
| parent | da7765230338186675e0f6ccbfba67efa4b88625 (diff) | |
| download | tcl-ab6eb1243a00175b523c0b8ca52aa43f6edec906.zip tcl-ab6eb1243a00175b523c0b8ca52aa43f6edec906.tar.gz tcl-ab6eb1243a00175b523c0b8ca52aa43f6edec906.tar.bz2 | |
improved test description
| -rw-r--r-- | tests/trace.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/trace.test b/tests/trace.test index ed7eca9..c22cfc7 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.31 2003/09/24 12:56:17 vincentdarley Exp $ +# RCS: @(#) $Id: trace.test,v 1.32 2003/09/29 21:28:09 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2176,7 +2176,9 @@ test trace-31.2 {command and execution traces shared struct} { set result } [list [list enter foo]] -test trace-32.1 {mystery memory corruption} knownBug { +test trace-32.1 { + TraceCommandInfo refcount decr in TraceCommandProc w/o loss of reference +} { # Tcl Bug 811483 proc foo {} {} trace add command foo delete foo |