1 files changed, 16 insertions, 0 deletions
diff --git a/contrib/tcl/tests/all b/contrib/tcl/tests/all
new file mode 100644
index 0000000..b50794c
--- /dev/null
+++ b/contrib/tcl/tests/all
@@ -0,0 +1,16 @@
+# 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.
+#
+# SCCS: @(#) all 1.7 96/02/16 08:55:38
+
+foreach i [lsort [glob *.test]] {
+    if [string match l.*.test $i] {
+	# This is an SCCS lock file;  ignore it.
+	continue
+    }
+    puts stdout $i
+    if [catch {source $i} msg] {
+	puts $msg
+    }	
+}