Posted to tcl by djcybermyth at Tue Apr 24 16:13:18 GMT 2012view raw

  1. proc run_test_list {args} {
  2. reset_tests
  3.  
  4. puts "Running [llength $args] tests."
  5.  
  6. print_test_banner
  7.  
  8. foreach test $args {
  9. run_test $test
  10. }
  11.  
  12. print_test_results
  13. }
  14.  
  15.  
  16. if {[llength $testnames] > 0} {
  17. puts "Got [llength $testnames] tests."
  18. run_test_list $testnames
  19. } else {
  20. run_all_tests
  21. }
  22.