1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# 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.
# ------------------------------------------------------------------
# THIS SCRIPT IS NOW DEPRECATED! It is kept for older Tcl
# installations that don't have the "tcltest" package.
# Instead, use the "all.tcl" script to run the test suite.
# ------------------------------------------------------------------
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
}
}
|
