X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.pure.lisp;h=e2aed69c3630859e59cb0853d1da771bedad03cf;hb=b29a25d09c9c7afe0b22eaa795b3dda6bb2641f7;hp=ff01c2fd1810760c424271bcc07f49069e14e190;hpb=8573e16b201126d55dcfa6835ead4da061d4c71f;p=sbcl.git

diff --git a/tests/float.pure.lisp b/tests/float.pure.lisp
index ff01c2f..e2aed69 100644
--- a/tests/float.pure.lisp
+++ b/tests/float.pure.lisp
@@ -250,7 +250,7 @@
 ;;   correctly. On other platforms, we trust libm to DTRT.
 ;; but it doesn't cost any real amount to just test them all
 (with-test (:name :range-reduction
-            :fails-on '(and :x86-64 (or :linux :darwin)))
+            :fails-on ':x86-64)
   (flet ((almost= (x y)
            (< (abs (- x y)) 1d-5)))
     (macrolet ((foo (op value)
@@ -373,3 +373,11 @@
                (+ (float int 0e0) x0))))
       (declare (notinline test-cvtsi2ss))
       (assert (zerop (imagpart (test-cvtsi2ss 4)))))))
+
+(with-test (:name :round-to-bignum)
+  (assert (= (round 1073741822.3d0) 1073741822))
+  (assert (= (round 1073741822.5d0) 1073741822))
+  (assert (= (round 1073741822.7d0) 1073741823))
+  (assert (= (round 1073741823.3d0) 1073741823))
+  (assert (= (round 1073741823.5d0) 1073741824))
+  (assert (= (round 1073741823.7d0) 1073741824)))