home *** CD-ROM | disk | FTP | other *** search
/ Serving the Web / ServingTheWeb1995.disc1of1.iso / linux / slacksrce / tcl / tcl+tk+t / tclx7.3bl / tclx7 / tclX7.3b / tests / all next >
Encoding:
Text File  |  1994-07-16  |  443 b   |  18 lines
  1. # This file contains a top-level script to run all of the Extended Tcl
  2. # tests.  Execute it by invoking "source all" when running tclTest
  3. # in this directory.
  4.  
  5. global errorInfo
  6.  
  7. foreach i [lsort [glob *.test]] {
  8.     puts stdout $i
  9.     if {[catch {source $i} msg] != 0} {
  10.         puts stdout [replicate "=" 75]
  11.         puts stdout "Uncaught error in $i: $msg"
  12.         puts stdout $errorInfo
  13.         puts stdout [replicate "=" 75]
  14.     }
  15. }
  16.  
  17. exit
  18.