diff options
Diffstat (limited to 'itcl/itcl/tests/old/all')
| -rw-r--r-- | itcl/itcl/tests/old/all | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/itcl/itcl/tests/old/all b/itcl/itcl/tests/old/all new file mode 100644 index 00000000000..2c40a9c6402 --- /dev/null +++ b/itcl/itcl/tests/old/all @@ -0,0 +1,32 @@ +# +# Old test suite for [incr Tcl] v1.5 +# ---------------------------------------------------------------------- +# AUTHOR: Michael J. McLennan +# Bell Labs Innovations for Lucent Technologies +# mmclennan@lucent.com +# http://www.tcltk.com/itcl +# +# RCS: $Id$ +# ---------------------------------------------------------------------- +# Copyright (c) 1993-1998 Lucent Technologies, Inc. +# ====================================================================== +# See the file "license.terms" for information on usage and +# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. + +variable WATCH + +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 |