Commit 5ebd8df9 by Liam Healy

Tests for gamma special function

The special function test for gamma from GSL are in place, and 32 fail, some by a substantial amount. Some are commented out.
parent 3affbf30
;; Additional methods for lisp-unit
;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp
;; Time-stamp: <2010-05-27 17:35:17EDT augment.lisp>
;; Time-stamp: <2010-05-27 19:21:42EDT augment.lisp>
;;
;; Copyright 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -40,7 +40,7 @@
(defmacro assert-to-tolerance (form expected-value tolerance)
`(let ((lisp-unit:*epsilon* ,tolerance))
(lisp-unit::assert-numerical-equal
',expected-value
,expected-value
,(if (listp expected-value)
`(subseq (multiple-value-list ,form)
0 ,(length (eval expected-value)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment