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