| #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" |