archie/tcl7.6/tests/all

17 lines
392 B
Plaintext
Raw Normal View History

2024-05-27 16:13:40 +02:00
# 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.
#
2024-05-27 16:40:40 +02:00
# SCCS: @(#) all 1.7 96/02/16 08:55:38
2024-05-27 16:13:40 +02:00
foreach i [lsort [glob *.test]] {
2024-05-27 16:40:40 +02:00
if [string match l.*.test $i] {
# This is an SCCS lock file; ignore it.
continue
}
2024-05-27 16:13:40 +02:00
puts stdout $i
2024-05-27 16:40:40 +02:00
if [catch {source $i} msg] {
puts $msg
}
2024-05-27 16:13:40 +02:00
}