summaryrefslogtreecommitdiffstats
path: root/tests/all
diff options
context:
space:
mode:
authorrjohnson <rjohnson>1998-04-01 09:51:44 (GMT)
committerrjohnson <rjohnson>1998-04-01 09:51:44 (GMT)
commit066ea7fd88d49cb456f74da71dbe875e4fc0aabb (patch)
tree8fb30cb152c4dc191be47fa043d2e6f5ea38c7ba /tests/all
parent13242623d2ff3ea02ab6a62bfb48a7dbb5c27e22 (diff)
downloadtk-066ea7fd88d49cb456f74da71dbe875e4fc0aabb.zip
tk-066ea7fd88d49cb456f74da71dbe875e4fc0aabb.tar.gz
tk-066ea7fd88d49cb456f74da71dbe875e4fc0aabb.tar.bz2
Initial revision
Diffstat (limited to 'tests/all')
-rw-r--r--tests/all57
1 files changed, 57 insertions, 0 deletions
diff --git a/tests/all b/tests/all
new file mode 100644
index 0000000..38d2ca0
--- /dev/null
+++ b/tests/all
@@ -0,0 +1,57 @@
+# 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.23 97/08/06 18:50:18
+
+switch $tcl_platform(platform) {
+ "windows" {
+ # Tests that cause tk to crash under windows.
+ set crash {}
+
+ # Tests that fail under windows.
+
+ set fail { grid.test }
+
+ if {! [info exist exclude] } {
+ set exclude [string tolower "$crash $fail"]
+ }
+ }
+ "macintosh" {
+ set x [pwd]
+ cd $tk_library
+ set tk_library [pwd]
+ cd $x
+
+ # Tests that cause tk to crash under mac.
+ set crash {}
+
+ # Tests that fail under mac.
+ set fail {bind.test entry.test send.test textDisp.test}
+
+ set exclude [string tolower "$crash $fail"]
+ }
+ "unix" {
+ set exclude ""
+ }
+}
+
+if {$tcl_platform(os) == "Win32s"} {
+ set tests [lsort [glob *.tes]]
+} else {
+ set tests [lsort [glob *.test]]
+}
+
+foreach i $tests {
+ if [string match l.*.test $i] {
+ # This is an SCCS lock file; ignore it.
+ continue
+ }
+ if [lsearch $exclude [string tolower $i]]>=0 {
+ # Do not source this file; it exercises a known bug at this time.
+ puts stdout "Skipping $i"
+ continue
+ }
+ puts stdout $i
+ source $i
+}