Skip to content
Snippets Groups Projects
Commit 98d3b693 authored by Raymond Toy's avatar Raymond Toy
Browse files

Tests for double-double arithmetic.

parent a7f3ba67
No related branches found
No related tags found
No related merge requests found
;;; 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)))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment