Artifact
ca03bb0bbe2ee40a6b065d5c1cf864764f413210:
Attachment "trace.patch.2" to
ticket [1773040fff]
added by
mpc_janssen
2007-08-14 02:20:54.
diff --git a/tests/trace.test b/tests/trace.test
index c2d7b17..8790c25 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -246,7 +246,17 @@ test trace-2.6 {trace variable writes on compiled local} {
p
set info
} {x X write 0 willy}
-
+test trace-2.7 {trace variable writes on errorInfo} -body {
+ #
+ # Check correct behaviour of write traces on errorInfo.
+ # [Bug 1773040]
+ trace add variable ::errorInfo write traceScalar
+ catch {set dne}
+ lrange [set info] 0 2
+} -cleanup {
+ # always remove trace on errorInfo otherwise further tests will fail
+ unset ::errorInfo
+} -result {errorInfo {} write}
# append no longer triggers read traces when fetching the old values of
# variables before doing the append operation. However, lappend _does_