1.0.39: will be tagged as sbcl_1_0_39
[sbcl.git] / tests / room.test.sh
1 #!/bin/sh
2
3 # testing ROOM in a fresh SBCL.
4
5 # This software is part of the SBCL system. See the README file for
6 # more information.
7 #
8 # While most of SBCL is derived from the CMU CL system, the test
9 # files (like this one) were written from scratch after the fork
10 # from CMU CL.
11 #
12 # This software is in the public domain and is provided with
13 # absolutely no warranty. See the COPYING and CREDITS files for
14 # more information.
15
16 . ./subr.sh
17
18 run_sbcl <<EOF
19   (dotimes (i 10)
20     (dotimes (j 10)
21       (room))
22     #+nil (gc))
23   (sb-ext:quit :unix-status $EXIT_LISP_WIN)
24 EOF
25 check_status_maybe_lose "room test" $?
26 # success convention for script
27 exit $EXIT_TEST_WIN