[Sbcl-commits] CVS: sbcl/tests float.pure.lisp,1.10,1.11 stream.impure-cload.lisp,1.3,1.4

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv28732/tests

Modified Files:
	float.pure.lisp stream.impure-cload.lisp 
Log Message:
0.8.2.51:
        * Fixed new bug shown by CLOCC: EXPT type deriver tried to
          work with arbitrarily large exponents;
        * stylistic change: eliminate (case ... ('+ ...));
        * test case for the bug 45b;
        * stylistic change: stream tests should remove temporary files.


Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- float.pure.lisp	15 Aug 2003 08:21:07 -0000	1.10
+++ float.pure.lisp	21 Aug 2003 09:18:59 -0000	1.11
@@ -73,3 +73,12 @@
   (loop for (exp res) in tests
         for real-res = (multiple-value-list (eval exp))
         do (assert (equal real-res res))))
+
+;;; bug 45b reported by PVE
+(dolist (type '(short single double long))
+  (dolist (sign '(positive negative))
+    (let* ((name (find-symbol (format nil "LEAST-~A-~A-FLOAT"
+                                      sign type)
+                              :cl))
+           (value (symbol-value name)))
+      (assert (zerop (/ value 2))))))

Index: stream.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/stream.impure-cload.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- stream.impure-cload.lisp	19 Aug 2003 15:42:42 -0000	1.3
+++ stream.impure-cload.lisp	21 Aug 2003 09:18:59 -0000	1.4
@@ -72,3 +72,4 @@
       b))
   (format nil "1234")
   :end1 4))
+(delete-file *scratch-file-name*)