summaryrefslogtreecommitdiff
path: root/tests/all.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/all.tcl')
-rw-r--r--tests/all.tcl24
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/all.tcl b/tests/all.tcl
new file mode 100644
index 0000000..4b5c208
--- /dev/null
+++ b/tests/all.tcl
@@ -0,0 +1,24 @@
+# all.tcl --
+#
+# 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.
+
+package require tcltest
+# do this in a way that is backward compatible for Tcl 8.3
+namespace import ::tcltest::test ::tcltest::cleanupTests
+package require Expect
+
+set ::tcltest::testSingleFile false
+set ::tcltest::testsDirectory [file dirname [info script]]
+
+foreach file [lsort [::tcltest::getMatchingFiles]] {
+ set tail [file tail $file]
+ puts stdout $tail
+ if {[catch {source $file} msg]} {
+ puts stdout $msg
+ }
+}
+
+::tcltest::cleanupTests 1
+return