0.8.2.14:

[sbcl.git] / tests / float.pure.lisp

diff --git a/tests/float.pure.lisp b/tests/float.pure.lisp
index d287b4a..c957c9f 100644 (file)
--- a/tests/float.pure.lisp
+++ b/tests/float.pure.lisp
@@ -52,3 +52,15 @@
 (assert (typep (nth-value 1 (ignore-errors
                               (funcall (fdefinition 'float-radix) "notfloat")))
                'type-error))
+
+;;; Before 0.8.2.14 the cross compiler failed to work with
+;;; denormalized numbers
+(when (subtypep 'single-float 'short-float)
+  (assert (eql least-positive-single-float least-positive-short-float)))
+
+#+nil ; bug 269
+(let ((f (eval 'least-positive-double-float)))
+  (assert (eql (multiple-value-bind (signif expon sign)
+                   (integer-decode-float f)
+                 (scale-float (float signif f) expon))
+               f)))