# This file contains a top-level script to run all of the Cpptcl
# tests.  Execute it by invoking "source all" when running a Tcl
# interpreter with Cpptcl loaded in this directory.
#
# SCCS: @(#) all 1.8 97/08/01 11:07:14

package require Cpptcl

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