15 lines
355 B
Plaintext
15 lines
355 B
Plaintext
# 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.
|
|
#
|
|
# SCCS: @(#) all 1.5 96/08/27 08:47:16
|
|
|
|
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
|
|
}
|