17 lines
392 B
Plaintext
17 lines
392 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.7 96/02/16 08:55:38
|
|
|
|
foreach i [lsort [glob *.test]] {
|
|
if [string match l.*.test $i] {
|
|
# This is an SCCS lock file; ignore it.
|
|
continue
|
|
}
|
|
puts stdout $i
|
|
if [catch {source $i} msg] {
|
|
puts $msg
|
|
}
|
|
}
|