Subject: Add test-case for Bug #2438181 (which passes in Tcl 8.4 but fails in 8.5/8.6). Provided by Poor Yorick

From: "jan.nijtmans" <[email-masked]>
Date: Tue, 19 Feb 2013 09:50:12 +0000

---
 tests/trace.test | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/trace.test b/tests/trace.test
index 80bdb4a..9a0912d 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -1666,6 +1666,16 @@ test trace-21.11 {trace execution and alias} -setup {
     rename ::x {}
 } -result {:: ::}
 
+proc set2 args {
+    set {*}$args
+}
+
+test trace-21.12 {bug 2438181} -setup {
+    trace add execution set2 leave {puts one two three #;}
+} -body {
+    set2 a hello
+} -returnCodes error -result {wrong # args: should be "puts ?-nonewline? ?channelId? string"}
+
 proc factorial {n} {
     if {$n != 1} { return [expr {$n * [factorial [expr {$n -1 }]]}] }
     return 1
-- 
cgit v0.12