Subversion Repositories or1k

#
# 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: all,v 1.1.1.1 2002-01-16 10:24:47 markom Exp $
# ----------------------------------------------------------------------
#            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