home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / xuibuilder / TclDOM-1.6 / tests / all next >
Text File  |  2000-11-02  |  511b  |  23 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. # SCCS: @(#) all 1.8 97/08/01 11:07:14
  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 lock file;  ignore it.
  16.     continue
  17.     }
  18.     puts stdout $i
  19.     if [catch {source $i} msg] {
  20.     puts $msg
  21.     }    
  22. }
  23.