Posted to tcl by de at Wed Feb 27 21:38:25 GMT 2013view pretty
if {[llength $argv] != 2} { puts stderr "usage: $argv0 testsdir testfile" exit 1 } set testsdir [lindex $argv 0] set testfile [lindex $argv 1] if {[glob -tails -directory $testsdir $testfile] ne $testfile} { puts stderr "Unknown test file '$argv'" exit 1 } set argv [list] package require tcltest proc tcltest::test {name args} { global testnames lappend testnames $name } set testnames [list] namespace import -force tcltest::* set tcltest::testSingleFile false outputChannel [open /dev/null w+] source $testsdir/$testfile puts $testnames