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