From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 5 Dec 2011 11:18:08 +0000 (+0200)
Subject: adjust the new MALLOC-FAILURE test for 32-bit builds
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0b1c9f716e522b89d20cc8e559bc6159c4c02a7c;p=sbcl.git

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
--- 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)))))