blob: 0d22faf7e3c12a7e7fe3382cb7048cae2e06c06f [file] [log] [blame]
#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"