home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tk4.0 / tests / all < prev    next >
Encoding:
Text File  |  1994-08-10  |  349 b   |  15 lines
  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. # @(#) all 1.2 94/08/10 15:52:50
  6.  
  7. foreach i [lsort [glob *.test]] {
  8.     if [string match l.*.test $i] {
  9.     # This is an SCCS lock file;  ignore it.
  10.     continue
  11.     }
  12.     puts stdout $i
  13.     source $i
  14. }
  15.