summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-19 10:34:31 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-02-19 10:34:31 (GMT)
commit7ba8e6119017551866f531be022705ef17a1ed39 (patch)
treed9b723448fa129576c7c0f10cf38f54211381ab6 /tests
parentd14317916c9328450a7afd6cfa2168a6c5a7224f (diff)
parentee8be54ede03c2d1f37f4639dcff5b9a94722992 (diff)
downloadtcl-7ba8e6119017551866f531be022705ef17a1ed39.zip
tcl-7ba8e6119017551866f531be022705ef17a1ed39.tar.gz
tcl-7ba8e6119017551866f531be022705ef17a1ed39.tar.bz2
Fix bug #2438181: Incorrect error reporting in traces.
Test-case and fix provided by Poor Yorick.
Diffstat (limited to 'tests')
-rw-r--r--tests/trace.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/trace.test b/tests/trace.test
index 9c3a686..27e23c4 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -1667,6 +1667,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 1 -result {wrong # args: should be "puts ?-nonewline? ?channelId? string"}
+
proc factorial {n} {
if {$n != 1} { return [expr {$n * [factorial [expr {$n -1 }]]}] }
return 1