# 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. # # @(#) all 1.2 94/08/10 15:52:50 # ------------------------------------------------------------------ # THIS SCRIPT IS NOW DEPRECATED! It is kept for older Tcl # installations that don't have the "tcltest" package. # Instead, use the "all.tcl" script to run the test suite. # ------------------------------------------------------------------ foreach i [lsort [glob *.test]] { if [string match l.*.test $i] { # This is an SCCS lock file; ignore it. continue } puts stdout $i source $i }