Import Tcl 8.6.10

pkgs/itcl4.2.0/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