1 files changed, 22 insertions, 0 deletions
diff --git a/tcl/tests/all b/tcl/tests/all
new file mode 100644
index 00000000000..2fec4725646
--- /dev/null
+++ b/tcl/tests/all
@@ -0,0 +1,22 @@
+# This file contains a top-level script to run all of the Tcl
+# tests.  Execute it by invoking "source all" when running tclTest
+# in this directory.
+#
+# RCS: @(#) $Id$
+
+if {$tcl_platform(os) == "Win32s"} {
+    set files [glob *.tes]
+} else {
+    set files [glob *.test]
+}
+
+foreach i [lsort $files] {
+    if [string match l.*.test $i] {
+	# This is an SCCS lockfile
+	continue
+    }
+    puts stdout $i
+    if [catch {source $i} msg] {
+	puts $msg
+    }	
+}