1996-06-26 06:06:43 +00: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.
|
|
|
|
#
|
1997-10-01 13:19:13 +00:00
|
|
|
# SCCS: @(#) all 1.8 97/08/01 11:07:14
|
1996-06-26 06:06:43 +00:00
|
|
|
|
1997-10-01 13:19:13 +00:00
|
|
|
if {$tcl_platform(os) == "Win32s"} {
|
|
|
|
set files [glob *.tes]
|
|
|
|
} else {
|
|
|
|
set files [glob *.test]
|
|
|
|
}
|
|
|
|
|
|
|
|
foreach i [lsort $files] {
|
1996-06-26 06:06:43 +00:00
|
|
|
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
|
|
|
|
}
|
|
|
|
}
|