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