X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Froom.test.sh;h=d01c77033e772bb57d730a55f5bdabd568de1bfa;hb=260de2062fca170efdac3e42491d7d866c2d2e56;hp=f1660934a9139c5af9d0e77337b04754b5090557;hpb=51c666d362886fc3ce8e353133e30bd5864bca2d;p=sbcl.git

diff --git a/tests/room.test.sh b/tests/room.test.sh
index f166093..d01c770 100644
--- 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