adjust the new MALLOC-FAILURE test for 32-bit builds

  ...where malloc of (1- array-total-size-limit) bytes may actually
  succeed initially.

diff --git a/tests/alien.impure.lisp b/tests/alien.impure.lisp
index b490961..cf708ef 100644 (file)
--- a/tests/alien.impure.lisp
+++ b/tests/alien.impure.lisp
@@ -327,7 +327,8 @@
 (with-test (:name :malloc-failure)
   (assert (eq :enomem
               (handler-case
-                  (sb-alien:make-alien char (1- array-total-size-limit))
+                  (loop repeat 128
+                        collect (sb-alien:make-alien char (1- array-total-size-limit)))
                 (storage-condition ()
                   :enomem)))))