# # Main test suite for [incr Tcl] # ---------------------------------------------------------------------- # AUTHOR: Michael J. McLennan Phone: (610)712-2842 # AT&T Bell Laboratories E-mail: michael.mclennan@att.com # # RCS: all,v 1.1.1.1 1994/03/21 22:09:50 mmc Exp # ---------------------------------------------------------------------- # Copyright (c) 1993 AT&T Bell Laboratories # ====================================================================== # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, # provided that the above copyright notice appear in all copies and that # both that the copyright notice and warranty disclaimer appear in # supporting documentation, and that the names of AT&T Bell Laboratories # any of their entities not be used in advertising or publicity # pertaining to distribution of the software without specific, written # prior permission. # # AT&T disclaims all warranties with regard to this software, including # all implied warranties of merchantability and fitness. In no event # shall AT&T be liable for any special, indirect or consequential # damages or any damages whatsoever resulting from loss of use, data or # profits, whether in an action of contract, negligence or other # tortuous action, arising out of or in connection with the use or # performance of this software. # ====================================================================== global TEST_ABS_TOL TEST_REL_TOL set TEST_ABS_TOL 1.0e-6 set TEST_REL_TOL 1.0e-5 if {![file readable "testlib.tcl"]} { error "ERROR: execute test suite in \"tests\" directory" } lappend auto_path . foreach i [lsort [glob ./*.test]] { source $i } puts stdout "== ALL TESTS SUCCESSFUL ==" exit