1# This file contains a top-level script to run all of the Tcl 2# tests. Execute it by invoking "source all" when running tclTest 3# in this directory. 4# 5# @(#) all 1.2 94/08/10 15:52:50 6# ------------------------------------------------------------------ 7# THIS SCRIPT IS NOW DEPRECATED! It is kept for older Tcl 8# installations that don't have the "tcltest" package. 9# Instead, use the "all.tcl" script to run the test suite. 10# ------------------------------------------------------------------ 11 12foreach i [lsort [glob *.test]] { 13 if [string match l.*.test $i] { 14 # This is an SCCS lock file; ignore it. 15 continue 16 } 17 puts stdout $i 18 source $i 19} 20