* generic/tclInt.h: Added comment warning that the old

        ERR_IN_PROGRESS and ERROR_CODE_SET flag values should not be re-used
        for the sake of those extensions that have accessed them.

        * generic/tclCmdMZ.c (Tcl_TraceObjCmd): Fixed Bug 1065378 which failed
        * tests/trace.test (trace-33.1):        to permit a variable trace
        created with [trace variable] to be destroyed with [trace remove].
        Thanks to Keith Vetter for the report.


FossilOrigin-Name: 888788f6f9a654fa97ee55be188c3053b9396094

1 files changed, 10 insertions, 2 deletions

diff --git a/tests/trace.test b/tests/trace.test
index 145d171..e8b2ae7 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.36 2004/11/03 21:49:14 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.37 2004/11/15 21:47:23 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -2197,7 +2197,14 @@ test trace-32.1 {
     set result
 } [list [list delete foo]]
 
-test trace-33.1 {527164: Keep -errorinfo of traces} -setup {
+test trace-33.1 {variable match with remove variable} {
+    unset -nocomplain x
+    trace variable x w foo
+    trace remove variable x write foo
+    llength [trace info variable x]
+} 0
+
+test trace-34.1 {527164: Keep -errorinfo of traces} -setup {
     unset -nocomplain x y
 } -body {
     trace add variable x write {error foo;#}
@@ -2215,6 +2222,7 @@ test trace-33.1 {527164: Keep -errorinfo of traces} -setup {
     invoked from within
 "set y 1"}}
 
+
 # Delete procedures when done, so we don't clash with other tests
 # (e.g. foobar will clash with 'unknown' tests).
 catch {rename foobar {}}