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

==== info-38.6 location information for uplevel, ppl, proc-proc-literal FAILED
==== Contents of test case:

    join [lrange [datal] 0 4] \n

---- Result was:
14 {type proc line 5 cmd {info frame $level} proc ::etrace level 0}
13 {type eval line 3 cmd etrace proc ::control}
12 {type proc line 3 cmd {uplevel 1 $script} proc ::control}
11 {type proc line 2 cmd control proc ::datal level 1}
10 {type eval line 2 cmd datal proc ::tcltest::RunTest}
---- Result should have been (glob matching):
* {type source line 728 file info.test cmd {info frame $level} proc ::etrace level 0}
* {type source line 1344 file info.test cmd etrace proc ::control}
* {type source line 1338 file info.test cmd {uplevel 1 $script} proc ::control}
* {type source line 1342 file info.test cmd control proc ::datal level 1}
* {type source line 1405 file info.test cmd datal proc ::tcltest::RunTest}
==== info-38.6 FAILED