Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / tcl8.6.12 / pkgs / itcl4.2.2 / tests / all.tcl

diff --git a/util/src/TclTk/tcl8.6.12/pkgs/itcl4.2.2/tests/all.tcl b/util/src/TclTk/tcl8.6.12/pkgs/itcl4.2.2/tests/all.tcl
new file mode 100644 (file)
index 0000000..cc96edb
--- /dev/null
+++ b/util/src/TclTk/tcl8.6.12/pkgs/itcl4.2.2/tests/all.tcl
@@ -0,0 +1,31 @@
+# all.tcl --
+#
+# This file contains a top-level script to run all of the Tcl
+# tests.  Execute it by invoking "source all.test" when running tcltest
+# in this directory.
+#
+# Copyright (c) 1998-2000 by Ajuba Solutions
+# All rights reserved.
+
+if {"-testdir" ni $argv} {
+    lappend argv -testdir [file dir [info script]]
+}
+
+if {[namespace which -command memory] ne "" && "-loadfile" ni $argv} {
+    puts "Tests running in sub-interpreters of leaktest circuit"
+    # -loadfile overwrites -load, so save it for helper in ::env(TESTFLAGS):
+    if {![info exists ::env(TESTFLAGS)] && [llength $argv]} {
+        set ::env(TESTFLAGS) $argv
+    }
+    lappend argv -loadfile [file join [file dirname [info script]] helpers.tcl]
+}
+
+package prefer latest
+
+package require Tcl 8.6-
+package require tcltest 2.2
+
+tcltest::configure {*}$argv
+tcltest::runAllTests
+
+return