Posted to tcl by miguel at Tue Jan 19 15:12:04 GMT 2010view raw
- ==== 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