[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-08-37-g98d3b69

[Raymond Toy]

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 "CMU Common Lisp".

The branch, master has been updated
       via  98d3b693b06676dbc4f9785dca6c18516253370c (commit)
      from  a7f3ba676413d2a0cbd0505940c4a966ee25134c (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 98d3b693b06676dbc4f9785dca6c18516253370c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Wed Aug 27 19:53:30 2014 -0700

    Tests for double-double arithmetic.

diff --git a/tests/dd.lisp b/tests/dd.lisp
new file mode 100644
index 0000000..37c3447
--- /dev/null
+++ b/tests/dd.lisp
@@ -0,0 +1,13 @@
+;;; Tests for the double-double arithmetic..
+
+(defpackage :dd-tests
+  (:use :cl :lisp-unit))
+
+(in-package "DD-TESTS")
+
+(define-test two-prod
+  "Test two-prod"
+  ;; This should not overflow anymore.
+  (assert-equal (values 1.7976931281653871d308
+			-4.9896007738368d291)
+		(c::two-prod 1.7976931214684583d308 (1+ (scale-float 1d0 -28)))))

-----------------------------------------------------------------------

Summary of changes:
 tests/dd.lisp |   13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 tests/dd.lisp


hooks/post-receive
-- 
CMU Common Lisp