# -*- tcl -*-
# 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.
#
# CVS: $Id: all,v 1.2 1995/12/16 21:44:05 aku Exp $

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

    # clear remnants of failed tests.
    foreach b [blob info] {
	rename $b {}
    }
}
