[oct-scm] [oct-git]OCT: A portable Lisp implementation for quad-double precision floats branch master updated. 0804332c622d188cd923e2101ce354f9732d7371

Raymond Toy rtoy at common-lisp.net
Fri Feb 11 03:02:13 UTC 2011

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "OCT:  A portable Lisp implementation for quad-double precision floats".

The branch, master has been updated
       via  0804332c622d188cd923e2101ce354f9732d7371 (commit)
      from  60c71048cdad98a46dec988dd46739b28b479683 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0804332c622d188cd923e2101ce354f9732d7371
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Feb 10 21:48:25 2011 -0500

    Fix typo and add tests for atanh
    o Fix typo in number in for test oct.atan-branch-pos.2
    o Add tests for atanh branch cuts.

diff --git a/rt-tests.lisp b/rt-tests.lisp
index 3368c3d..b87100e 100644
--- a/rt-tests.lisp
+++ b/rt-tests.lisp
@@ -724,7 +724,7 @@
 (rt:deftest oct.atan-branch-pos.2
     (let ((true (cl:atan #c(1d-20 2d0))))
-      (check-signs #'atan #q(0d0 2 0d0) true))
+      (check-signs #'atan #q(0d0 2d0) true))
 (rt:deftest oct.atan-branch-pos.3
@@ -737,7 +737,24 @@
       (check-signs #'atan #q(-0d0 2d0) true))
+;; Test x < -1
+(rt:deftest oct.atanh-branch-neg.1
+    (let ((true (cl:atanh #c(-2d0 -1d-20))))
+      (check-signs #'atanh -2d0 true))
+  t)
+(rt:deftest oct.atanh-branch-neg.2
+    (let ((true (cl:atanh #c(-2d0 -1d-20))))
+      (check-signs #'atanh #q-2 true))
+  t)
+;; Test x > 1
+(rt:deftest oct.atanh-branch-pos.1
+    (let ((true (cl:atanh #c(2d0 1d-20))))
+      (check-signs #'atanh 2d0 true))
+  t)
+(rt:deftest oct.atanh-branch-pos.2
+    (let ((true (cl:atanh #c(2d0 1d-20))))
+      (check-signs #'atanh #q2 true))
+  t)


Summary of changes:
 rt-tests.lisp |   21 +++++++++++++++++++--
 1 files changed, 19 insertions(+), 2 deletions(-)

OCT:  A portable Lisp implementation for quad-double precision floats

More information about the oct-cvs mailing list