Commit 579b30fa authored by Raymond Toy's avatar Raymond Toy
Browse files

Update tests for sbcl

- Fix typo: extra closing paren
- Add new failing tests: oct.elliptic-pi.n0.q gamma.3.q
- Change a few tests so that the test result on failure includes the
  actual argument used for the gamma function.
parent 9d4625b8
Pipeline #2402 passed with stage
in 2 minutes and 17 seconds
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
(in-package #:oct) (in-package #:oct)
(named-readtables:in-readtable oct:oct-readtable)) (named-readtables:in-readtable oct:oct-readtable)
;; For the tests, we need to turn off underflow for clisp. ;; For the tests, we need to turn off underflow for clisp.
#+clisp #+clisp
...@@ -79,7 +79,10 @@ ...@@ -79,7 +79,10 @@
bessel-j.pos-order.d.1 bessel-j.pos-order.d.1
bessel-j-complex-arg.d.4 bessel-j-complex-arg.d.4
bessel-j-1/2-complex.d.1 bessel-j-1/2-complex.d.1
bessel-j-1/2-complex.q.1) bessel-j-1/2-complex.q.1
oct.elliptic-pi.n0.q
gamma.3.q
)
#-(or acl sbcl) #-(or acl sbcl)
'(oct.atanh-branch-neg.1 '(oct.atanh-branch-neg.1
oct.atanh-branch-pos.1 oct.atanh-branch-pos.1
...@@ -1324,7 +1327,7 @@ ...@@ -1324,7 +1327,7 @@
for true = (sqrt (/ pi y (sinh (* pi y)))) for true = (sqrt (/ pi y (sinh (* pi y))))
for result = (check-accuracy 44 g true) for result = (check-accuracy 44 g true)
when result when result
append (list (list (list k y) result))) append (list (list (list k (complex 0 y)) result)))
nil) nil)
(rt:deftest gamma.2.q (rt:deftest gamma.2.q
...@@ -1334,7 +1337,7 @@ ...@@ -1334,7 +1337,7 @@
for true = (sqrt (/ +pi+ y (sinh (* +pi+ y)))) for true = (sqrt (/ +pi+ y (sinh (* +pi+ y))))
for result = (check-accuracy 196 g true) for result = (check-accuracy 196 g true)
when result when result
append (list (list (list k y) result))) append (list (list (list k (complex 0 y)) result)))
nil) nil)
(rt:deftest gamma.3.d (rt:deftest gamma.3.d
...@@ -1344,7 +1347,7 @@ ...@@ -1344,7 +1347,7 @@
for true = (sqrt (/ pi (cosh (* pi y)))) for true = (sqrt (/ pi (cosh (* pi y))))
for result = (check-accuracy 44 g true) for result = (check-accuracy 44 g true)
when result when result
append (list (list (list k y) result))) append (list (list (list k (complex 1/2 y)) result)))
nil) nil)
(rt:deftest gamma.3.q (rt:deftest gamma.3.q
...@@ -1354,7 +1357,7 @@ ...@@ -1354,7 +1357,7 @@
for true = (sqrt (/ +pi+ (cosh (* +pi+ y)))) for true = (sqrt (/ +pi+ (cosh (* +pi+ y))))
for result = (check-accuracy 196 g true) for result = (check-accuracy 196 g true)
when result when result
append (list (list (list k y) result))) append (list (list (list k (complex 1/2 y)) result)))
nil) nil)
;; gamma_incomplete(2,z) = integrate(t*exp(-t), t, z, inf) ;; gamma_incomplete(2,z) = integrate(t*exp(-t), t, z, inf)
......
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