tests/undefined-classoid-bug.test.sh

   1 # This file run a regression test for a bug in loading
   2 # forward-referenced layouts.
   3
   4 . ./subr.sh
   5
   6 use_test_subdirectory
   7
   8 FILES='"undefined-classoid-bug-1.lisp" "undefined-classoid-bug-2.lisp"'
   9 FASLS='"undefined-classoid-bug-1.fasl" "undefined-classoid-bug-2.fasl"'
  10
  11 for f in $FILES; do
  12     (cd "$SBCL_PWD"; cp `eval "echo $f"` "$TEST_DIRECTORY");
  13 done
  14
  15 run_sbcl <<EOF
  16 (let ((files (list $FILES)))
  17   (mapc #'load files)
  18   (mapc #'compile-file files))
  19 (exit :code 52)
  20 EOF
  21
  22 run_sbcl <<EOF
  23 (mapc #'load (list $FASLS))
  24 (exit :code $EXIT_LISP_WIN)
  25 EOF
  26 check_status_maybe_lose undefined-classoid-bug $?
  27
  28 exit $EXIT_TEST_WIN