Posted to tcl by miguel at Mon Oct 30 23:24:41 GMT 2006view pretty

package require tcltest
namespace import tcltest::*
lappend auto_path .

source ../devtools/testutilities.tcl

testsNeedTcl     8.3
testsNeedTcltest 1.0

testing {
    useLocal profiler.tcl profiler
}

::tcltest::testConstraint tcl8.4only  [expr {![package vsatisfies [package provide Tcl] 8.5]}]

set c [interp create]
interp alias $c parentSet {} set

$c eval {set auto_path [parentSet auto_path]}
$c eval {package require profiler}
$c eval {     profiler::init}
$c eval {     
    proc ::foo {} {
	::bar
    }
}
$c eval {
    proc ::bar {} {
	after 300
    }
}
$c eval foo