Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7791
Modified Files:
all.tcl
Log Message:
No exit
Index: all.tcl
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/all.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- all.tcl 6 Sep 2004 07:00:33 -0000 1.1
+++ all.tcl 6 Sep 2004 11:13:03 -0000 1.2
@@ -50,9 +50,16 @@
puts stdout "Starting tests [clock format [clock seconds]]"
# Now execute the tests suite
-tcltest::runAllTests
+# tcltest::runAllTests
+# Source each of the specified tests
+foreach file [lsort [::tcltest::getMatchingFiles]] {
+ set tail [file tail $file]
+ if {[catch {source $file} msg]} {
+ puts stdout $msg
+ }
+}
# Cleanup
puts stdout "\nEnd of tests [clock format [clock seconds]]"
::tcltest::cleanupTests 1
-exit
+
|
