Subversion Repositories or1k_old

# 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.

#

# RCS: @(#) $Id: all,v 1.1.1.1 2002-01-16 10:25:35 markom Exp $

if {$tcl_platform(os) == "Win32s"} {

    set files [glob *.tes]

} else {

    set files [glob *.test]

}

foreach i [lsort $files] {

    if [string match l.*.test $i] {

        # This is an SCCS lockfile

        continue

    }

    puts stdout $i

    if [catch {source $i} msg] {

        puts $msg

    }

}