Subversion Repositories or1k

# 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.7 96/02/16 08:55:38

foreach i [lsort [glob *.test]] {

    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

    }

}