tests/interface.test.sh

   1 #!/bin/sh
   2
   3 # tests for problems in the interface presented to the user/programmer
   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 use_test_subdirectory
  19
  20 tmpscript=$TEST_FILESTEM.lisp-script
  21
  22 printenv
  23
  24 # bug 881445
  25 case "$SBCL_MACHINE_TYPE" in
  26     X86-64)
  27         cat > $tmpscript <<EOF
  28 (let ((x (make-array (1- (expt 2 32)) :element-type '(unsigned-byte 8))))
  29   (assert (> (sb-kernel:dynamic-usage) (length x)))
  30   ;; prevent compiler from getting too smart...
  31   (eval x)
  32   (sb-ext:quit :unix-status $EXIT_LISP_WIN))
  33 EOF
  34         run_sbcl_with_args --dynamic-space-size 5GB $SBCL_ARGS --load $tmpscript
  35         check_status_maybe_lose "bug 881445" $?
  36         ;;
  37 esac
  38
  39 exit $EXIT_TEST_WIN