#puts "TCLTESTENGINE:START" | |
#puts "args: $argv" | |
set myvars $argv | |
set script [lindex $argv 0] | |
set argv [lrange $argv 1 [llength $argv]] | |
set argv0 $script | |
package require tcltest 2 | |
namespace import -force ::tcltest::* | |
::tcltest::verbose { pass skip body } | |
source $script | |
#puts "TCLTESTENGINE:END" |