tests/save4.test.sh

   1 . ./subr.sh
   2
   3 use_test_subdirectory
   4
   5 tmpcore=$TEST_FILESTEM.core
   6
   7 # test for lp#1983248 - gc_close_region on an unopen region
   8 run_sbcl <<EOF
   9 (defparameter *keepme* (make-array 15500 :fill-pointer 0))
  10 (let ((s (find-symbol "*COMPILE-TO-MEMORY-SPACE*" "SB-C")))
  11   (when s
  12     (set s :immobile)
  13     (dotimes (i (array-dimension *keepme* 0))
  14       (vector-push-extend (compile nil \`(lambda () ,i)) *keepme*))))
  15 (save-lisp-and-die "$tmpcore")
  16 EOF
  17
  18 check_status_maybe_lose "LOTS-OF-CODE" $? 0 "(saved OK)"
  19
  20 exit $EXIT_TEST_WIN