# This file contains a top-level script to run all of the tests.
# Execute it by invoking "source all" when running in this directory.

global errorInfo

foreach i [lsort [glob *.test]] {
    puts $i
    if [catch {source $i} msg] {
        puts ============================================================
        puts "Uncaught error in $i: $msg"
        puts $errorInfo
        puts ============================================================
    }
}

if !$tcl_interactive {
    exit
}


