X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Froom.test.sh;h=d01c77033e772bb57d730a55f5bdabd568de1bfa;hb=a189a69454ef7635149319ae213b337f17c50d20;hp=23c30ed104337fe8edb66292dfe6737f137421f9;hpb=0d0d921dce5a10237f18f19331e0914a768a4f41;p=sbcl.git

diff --git a/tests/room.test.sh b/tests/room.test.sh
index 23c30ed..d01c770 100644
--- a/tests/room.test.sh
+++ b/tests/room.test.sh
@@ -13,14 +13,15 @@
 # absolutely no warranty. See the COPYING and CREDITS files for
 # more information.
 
-echo //entering room.test.sh
-
-${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