all

来自「linux 下的源代码分析阅读器 red hat公司新版」· 代码 · 共 33 行

#
# Old test suite for [incr Tcl] v1.5
# ----------------------------------------------------------------------
#   AUTHOR:  Michael J. McLennan
#            Bell Labs Innovations for Lucent Technologies
#            [e-mail]
#            http://www.tcltk.com/itcl
#
#      RCS:  $Id: all 144 2003-02-05 10:56:26Z mdejong $
# ----------------------------------------------------------------------
#            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