# 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.
#
# $Header: /sprite/src/lib/tcl/tests/RCS/all,v 1.4 91/09/08 13:43:07 ouster Exp $ (Berkeley)


foreach i [lsort [glob *.test]] {
    puts stdout $i
    source $i
}

puts stderr "\n\n== tests expected to fail: ============================================="

foreach i [lsort [glob *.test-norun]] {
    puts stdout $i
    set ret [catch {source $i} msg]
    if {$ret != 0} {
        puts stderr ">>> on $i,\n   error code '$ret',\n   message '$msg'"
    }
}
