Posted to tcl by de at Wed Jun 24 12:27:28 GMT 2009view raw

  1. ==== info-38.6 location information for uplevel, ppl, proc-proc-literal FAILED
  2. ==== Contents of test case:
  3.  
  4. join [lrange [datal] 0 4] \n
  5.  
  6. ---- Result was:
  7. 14 {type proc line 5 cmd {info frame $level} proc ::etrace level 0}
  8. 13 {type eval line 3 cmd etrace proc ::control}
  9. 12 {type proc line 3 cmd {uplevel 1 $script} proc ::control}
  10. 11 {type proc line 2 cmd control proc ::datal level 1}
  11. 10 {type eval line 2 cmd datal proc ::tcltest::RunTest}
  12. ---- Result should have been (glob matching):
  13. * {type source line 728 file info.test cmd {info frame $level} proc ::etrace level 0}
  14. * {type source line 1344 file info.test cmd etrace proc ::control}
  15. * {type source line 1338 file info.test cmd {uplevel 1 $script} proc ::control}
  16. * {type source line 1342 file info.test cmd control proc ::datal level 1}
  17. * {type source line 1405 file info.test cmd datal proc ::tcltest::RunTest}
  18. ==== info-38.6 FAILED
  19.