Artifact 69e23dcf5179eb3e4e6ad0a4bf84c888a9da347c:

• File win/tests/all — part of check-in [70e2933c93] at 2001-09-13 01:14:18 on branch win32-jump-point-1 — snap29 "import" (user: davygrvy size: 532)

# 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.8 97/08/01 11:07:14

#package require expect
load expect52.dll

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 lock file;  ignore it.
	continue
    }
    puts stdout $i
    if [catch {source $i} msg] {
	puts $msg
    }	
}