Posted to tcl by de at Wed Feb 27 21:38:25 GMT 2013view raw

  1.  
  2. if {[llength $argv] != 2} {
  3. puts stderr "usage: $argv0 testsdir testfile"
  4. exit 1
  5. }
  6. set testsdir [lindex $argv 0]
  7. set testfile [lindex $argv 1]
  8. if {[glob -tails -directory $testsdir $testfile] ne $testfile} {
  9. puts stderr "Unknown test file '$argv'"
  10. exit 1
  11. }
  12.  
  13. set argv [list]
  14.  
  15. package require tcltest
  16.  
  17. proc tcltest::test {name args} {
  18. global testnames
  19.  
  20. lappend testnames $name
  21. }
  22. set testnames [list]
  23. namespace import -force tcltest::*
  24. set tcltest::testSingleFile false
  25. outputChannel [open /dev/null w+]
  26.  
  27. source $testsdir/$testfile
  28. puts $testnames
  29.