Update of /project/cl-gsl/cvsroot/cl-gsl/test In directory common-lisp.net:/tmp/cvs-serv17962

Modified Files: test-sf.lisp Log Message: Moved tolerance functions to a separate file.

Date: Sun Mar 13 01:50:49 2005 Author: edenny

Index: cl-gsl/test/test-sf.lisp diff -u cl-gsl/test/test-sf.lisp:1.4 cl-gsl/test/test-sf.lisp:1.5 --- cl-gsl/test/test-sf.lisp:1.4 Wed Mar 9 04:11:04 2005 +++ cl-gsl/test/test-sf.lisp Sun Mar 13 01:50:49 2005 @@ -19,20 +19,7 @@

(in-package #:cl-gsl-test)

-(defconstant +dbl-epsilon+ 2.2204460492503131d-16) - -(defconstant +tol0+ (/ +dbl-epsilon+ 2.0d0)) -(defconstant +tol+1+ (* +tol0+ 10.0d0)) -(defconstant +tol-1+ (/ +tol0+ 10.0d0)) -(defconstant +tol+2+ (* +tol0+ 100.0d0)) -(defconstant +tol-2+ (/ +tol0+ 100.0d0)) -(defconstant +tol+3+ (* +tol0+ 1000.0d0)) -(defconstant +tol-3+ (/ +tol0+ 1000.0d0)) - (defconstant +sf+ "sf") - -(defun tol< (x y tol) - (< (abs (- x y)) tol))

(defmacro sf-deftest (func-name-str param-list result tolerance) `(deftest ,func-name-str :category +sf+