diff options
Diffstat (limited to 'tcltest.tcl')
| -rw-r--r-- | tcltest.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index 1f13365..8d3d51e 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -168,8 +168,8 @@ proc basename-stacktrace {stacktrace} { # If tcl, just use tcltest if {[catch {info version}]} { - package require Tcl 8.5 - package require tcltest 2.1 + package require Tcl 8.5- + package require tcltest 2.1- namespace import tcltest::* if {$testinfo(verbose)} { @@ -185,7 +185,6 @@ if {[catch {info version}]} { incr skip for {set level $skip} {$level < [info frame] - $last} {incr level} { set frame [info frame -$level] - puts $frame if {[dict get $frame type] ne "source"} { continue } |