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