# 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: all,v 1.2 2001/09/14 01:43:32 zlaski Exp $ 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 } }