tcl/tests/all

   1 # This file contains a top-level script to run all of the Tcl
   2 # tests.  Execute it by invoking "source all" when running tclTest
   3 # in this directory.
   4 #
   5 # RCS: @(#) $Id$
   6
   7 if {$tcl_platform(os) == "Win32s"} {
   8     set files [glob *.tes]
   9 } else {
  10     set files [glob *.test]
  11 }
  12
  13 foreach i [lsort $files] {
  14     if [string match l.*.test $i] {
  15         # This is an SCCS lockfile
  16         continue
  17     }
  18     puts stdout $i
  19     if [catch {source $i} msg] {
  20         puts $msg
  21     }
  22 }