[armedbear-cvs] r13260 - in trunk/abcl: . test/lisp/abcl

[Mark Evenson]

Author: mevenson
Date: Sun Apr  3 12:02:44 2011
New Revision: 13260

Log:
Test for ticket #142.

Modified:
   trunk/abcl/abcl.asd
   trunk/abcl/test/lisp/abcl/math-tests.lisp

Modified: trunk/abcl/abcl.asd
==============================================================================
--- trunk/abcl/abcl.asd	(original)
+++ trunk/abcl/abcl.asd	Sun Apr  3 12:02:44 2011
@@ -52,7 +52,8 @@
                              ("utilities" "pathname-tests" "file-system-tests"))
                       #+abcl
                       (:file "url-pathname")
-                      (:file "math-tests")
+                      (:file "math-tests" 
+                             :depends-on ("compiler-tests"))
                       (:file "misc-tests")
                       (:file "latin1-tests")
                       #+abcl

Modified: trunk/abcl/test/lisp/abcl/math-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/math-tests.lisp	(original)
+++ trunk/abcl/test/lisp/abcl/math-tests.lisp	Sun Apr  3 12:02:44 2011
@@ -463,3 +463,17 @@
   #-(or cmu sbcl)
   (signals-error (read-from-string "1.0f-1000") 'reader-error)
   t)
+
+;;; Test for http://trac.common-lisp.net/armedbear/ticket/142
+(define-compiler-test math.logand.1
+    (lambda (switchp)
+      (logand 
+       (if switchp
+           nil
+           2)
+       1))
+  :args (nil)
+  :results 0)
+
+
+     
\ No newline at end of file