projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.22.7: Update to ASDF 1.130
[sbcl.git]
/
tests
/
room.test.sh
diff --git
a/tests/room.test.sh
b/tests/room.test.sh
index
23c30ed
..
d01c770
100644
(file)
--- 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.
# 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
# success convention for script
-exit 104
+exit $EXIT_TEST_WIN