Posted to tcl by miguel at Tue Jan 19 15:12:04 GMT 2010view pretty
==== execute-8.4 Compile epoch bump effect on stack trace FAILED ==== Contents of test case: catch foo m o set stack1 [dict get $o -errorinfo] catch FOO m o set stack2 [string map {FOO foo} [dict get $o -errorinfo]] expr {$stack1 eq $stack2 ? {} : "These differ:\n$stack1\n$stack2"} ---- Result was: These differ: bar while executing "error bar" (procedure "foo" line 2) invoked from within "foo" bar while executing "error bar" invoked from within "return -options $o $m" (procedure "foo" line 5) invoked from within "foo" ---- Result should have been (exact matching): ==== execute-8.4 FAILED