Posted to tcl by miguel at Tue Jan 19 15:12:04 GMT 2010view raw

  1. ==== execute-8.4 Compile epoch bump effect on stack trace FAILED
  2. ==== Contents of test case:
  3.  
  4. catch foo m o
  5. set stack1 [dict get $o -errorinfo]
  6. catch FOO m o
  7. set stack2 [string map {FOO foo} [dict get $o -errorinfo]]
  8. expr {$stack1 eq $stack2 ? {} : "These differ:\n$stack1\n$stack2"}
  9.  
  10. ---- Result was:
  11. These differ:
  12. bar
  13. while executing
  14. "error bar"
  15. (procedure "foo" line 2)
  16. invoked from within
  17. "foo"
  18. bar
  19. while executing
  20. "error bar"
  21. invoked from within
  22. "return -options $o $m"
  23. (procedure "foo" line 5)
  24. invoked from within
  25. "foo"
  26. ---- Result should have been (exact matching):
  27.  
  28. ==== execute-8.4 FAILED