diff options
| author | dgp@users.sourceforge.net <dgp> | 2003-09-29 21:28:09 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2003-09-29 21:28:09 (GMT) |
| commit | 044f90ae247b77e61fe04cec74b92dc6be4d87a2 (patch) | |
| tree | 153b8565ca6a819b51e44312f325ff57e430d966 | |
| parent | f719ea55c545de97c9091ee1e189ed0c20443ba9 (diff) | |
| download | tcl-044f90ae247b77e61fe04cec74b92dc6be4d87a2.zip tcl-044f90ae247b77e61fe04cec74b92dc6be4d87a2.tar.gz tcl-044f90ae247b77e61fe04cec74b92dc6be4d87a2.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 |