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       (let ((*standard-output* (make-string-output-stream))) (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