8.5 Introspection, Dev & Debug

[280][378] info frame

test info-23.6 {eval'd info frame, trace} -match glob -cleanup {unset script} -body {

set script {etrace}

join [lrange [eval $script] 0 2] \n

} -result {

* {type source line 730 file info.test cmd {info frame $level} proc ::etrace level 0}

* {type eval line 1 cmd etrace proc ::tcltest::RunTest}

* {type source line 805 file info.test cmd {eval $script} proc ::tcltest::RunTest}

}