Fix make-array transforms.

[sbcl.git] / tests / room.test.sh

diff --git a/tests/room.test.sh b/tests/room.test.sh
index f166093..d01c770 100644 (file)
--- a/tests/room.test.sh
+++ b/tests/room.test.sh
@@ -13,21 +13,15 @@
 # absolutely no warranty. See the COPYING and CREDITS files for
 # more information.
 
-echo //entering room.test.sh
-
-${SBCL:-sbcl} --eval "(progn (defvar *a* (make-array (expt 2 27))) (room) (sb-ext:quit :unix-status 52))"
-if [ $? = 52 ]; then
-    true # nop
-else
-    exit 1
-fi
-
-${SBCL:-sbcl} --eval "(progn (dotimes (i 10) (dotimes (j 10) (room)) (gc)) (sb-ext:quit :unix-status 52))"
-if [ $? = 52 ]; then
-    true # nop
-else
-    exit 1
-fi
+. ./subr.sh
 
+run_sbcl <<EOF
+  (dotimes (i 10)
+    (dotimes (j 10)
+      (room))
+    #+nil (gc))
+  (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+EOF
+check_status_maybe_lose "room test" $?
 # success convention for script
-exit 104
+exit $EXIT_TEST_WIN