blob: 2fec4725646a8e17680e257d117e91e24034b03c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# 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.
#
# RCS: @(#) $Id$
if {$tcl_platform(os) == "Win32s"} {
set files [glob *.tes]
} else {
set files [glob *.test]
}
foreach i [lsort $files] {
if [string match l.*.test $i] {
# This is an SCCS lockfile
continue
}
puts stdout $i
if [catch {source $i} msg] {
puts $msg
}
}
|
