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@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