#==============================================================================
#                                    all
#------------------------------------------------------------------------------
# Run all tests scripts.
#------------------------------------------------------------------------------
# $Id: all,v 4.0 1993/11/27 21:28:43 markd Rel $
#==============================================================================

foreach test [lsort [glob *.test]] {
    echo "---------- $test ----------"
    if {[catch {source $test} msg] != 0} {
        global $errorInfo
        puts stderr "Uncaught error in $test: $msg"
        puts stderr $errorInfo
    }
    flush stdout
    flush stderr
}
