Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13442/tests
Modified Files:
bit-vector.impure-cload.lisp callback.impure.lisp
debug.impure.lisp float.pure.lisp
Log Message:
0.9.4.12:
Test fixes:
* make sure we don't use :darwin when we mean (:and :ppc :darwin)
* enable a test which passes on Darwin but was previously
commented out (possibly due to insufficient memory space?)
* use with-test to turn a floating-point traps test into an
expected failure on PPC Darwin, where floating-point traps are not
enabled.
Index: bit-vector.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/bit-vector.impure-cload.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- bit-vector.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.6
+++ bit-vector.impure-cload.lisp 28 Aug 2005 02:26:45 -0000 1.7
@@ -69,14 +69,12 @@
(assert (= (aref a 0) 1))
(inform :aref-2)
(assert (= (aref a (- array-dimension-limit 2)) 1))
- #-darwin
- (progn
- (inform :bit-and)
- (bit-and a b a)
- (inform :aref-3)
- (assert (= (aref a 0) 0))
- (inform :aref-4)
- (assert (= (aref a (- array-dimension-limit 2)) 0)))))
+ (inform :bit-and)
+ (bit-and a b a)
+ (inform :aref-3)
+ (assert (= (aref a 0) 0))
+ (inform :aref-4)
+ (assert (= (aref a (- array-dimension-limit 2)) 0))))
(test-small-bit-vectors)
Index: callback.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/callback.impure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- callback.impure.lisp 26 Aug 2005 21:09:04 -0000 1.5
+++ callback.impure.lisp 28 Aug 2005 02:26:45 -0000 1.6
@@ -14,7 +14,7 @@
(in-package :cl-user)
;;; callbacks only on a few platforms
-#-(or darwin x86)
+#-(or (and ppc darwin) x86)
(quit :unix-status 104)
;;; simple callback for a function
Index: debug.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- debug.impure.lisp 26 Aug 2005 21:09:04 -0000 1.21
+++ debug.impure.lisp 28 Aug 2005 02:26:45 -0000 1.22
@@ -337,14 +337,14 @@
(assert (search "TRACE-THIS" out))
(assert (search "returned OK" out)))
-(with-test (:fails-on '(and :ppc :darwin))
- ;;; bug 379
- (let ((out (with-output-to-string (*trace-output*)
- (trace trace-this :encapsulate nil)
- (assert (eq 'ok (trace-this)))
- (untrace))))
- (assert (search "TRACE-THIS" out))
- (assert (search "returned OK" out))))
+;;; bug 379
+#-(and ppc darwin)
+(let ((out (with-output-to-string (*trace-output*)
+ (trace trace-this :encapsulate nil)
+ (assert (eq 'ok (trace-this)))
+ (untrace))))
+ (assert (search "TRACE-THIS" out))
+ (assert (search "returned OK" out)))
;;;; test infinite error protection
Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- float.pure.lisp 26 Aug 2005 21:09:04 -0000 1.21
+++ float.pure.lisp 28 Aug 2005 02:26:45 -0000 1.22
@@ -92,7 +92,7 @@
(assert (= 0.0 (scale-float 1.0 most-negative-fixnum)))
(assert (= 0.0d0 (scale-float 1.0d0 (1- most-negative-fixnum))))
-(with-test (:fails-on '(or :darwin)) ;; bug 372
+(with-test (:fails-on '(or :ppc)) ;; bug 372
(progn
(assert (raises-error? (scale-float 1.0 most-positive-fixnum)
floating-point-overflow))
@@ -117,10 +117,11 @@
#c(1.0d0 2.0d0))
'double-float))
-(assert (typep (nth-value
- 1
- (ignore-errors
- (sb-sys:without-interrupts
- (loop repeat 2 summing most-positive-double-float)
- (sleep 2))))
- 'floating-point-overflow))
+(with-test (:fails-on '(or :ppc))
+ (assert (typep (nth-value
+ 1
+ (ignore-errors
+ (sb-sys:without-interrupts
+ (loop repeat 2 summing most-positive-double-float)
+ (sleep 2))))
+ 'floating-point-overflow)))
\ No newline at end of file
|