[Tclresource-commits] Extras/Tests all.tcl,1.1,1.2

[Bernard D. <bde...@us...>]

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
+