# @(#)tclStruct:all	1.1	95/08/28
#
# This file contains a top-level script to run all of the TclStruct
# tests.  Execute it by invoking "source all" when running tcl with
# the tclStruct package loaded in this directory.
#
# Copyright (c) 1995 AT&T Global Information Solutions
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#

foreach i [lsort [glob *.test]] {
    if [string match l.*.test $i] {
	# This is an SCCS lock file;  ignore it.
	continue
    }
    puts stdout $i
    source $i
}
