#==============================================================================
#                                    all
#------------------------------------------------------------------------------
# Run all tests scripts.
#------------------------------------------------------------------------------
# $Id: all,v 5.0 1994/09/05 01:22:47 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
}
