# 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.2 90/03/19 14:55:18 ouster Exp $ (Berkeley)
#
# @(#) all 2.1 9/30/90
#

#
# turn off invalid command name hook routine
#
if [info exists invalid_command_hook] {
    set keep_invalid_hook $invalid_command_name_hook
    set invalid_command_name_hook ""
}

foreach i [glob *.test] {
    print $i
    print \n
    source $i
}

if [info exists invalid_command_hook] {
    set invalid_command_name_hook $keep_invalid_hook
}
