From 0b1c9f716e522b89d20cc8e559bc6159c4c02a7c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 5 Dec 2011 13:18:08 +0200 Subject: [PATCH] adjust the new MALLOC-FAILURE test for 32-bit builds ...where malloc of (1- array-total-size-limit) bytes may actually succeed initially. --- tests/alien.impure.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))))) -- 1.7.10.4