# 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 1998/09/14 18:40:07 stanton Exp $

catch {
    set auto_path [list $tcl_library [file dirname [info nameofexecutable]]]
    cd [file dirname [info script]]
}

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
    }	
}
