tests/undefined-classoid-bug.test.sh

   1 # This file run a regression test for a bug in loading
   2 # forward-referenced layouts.
   3
   4 FILES='"undefined-classoid-bug-1.lisp" "undefined-classoid-bug-2.lisp"'
   5 FASLS='"undefined-classoid-bug-1.fasl" "undefined-classoid-bug-2.fasl"'
   6
   7 ${SBCL:-sbcl} <<EOF
   8 (let ((files (list $FILES)))
   9   (mapc #'load files)
  10   (mapc #'compile-file files))
  11 (quit :unix-status 52)
  12 EOF
  13
  14 ${SBCL:-sbcl} <<EOF
  15 (mapc #'load (list $FASLS))
  16 (quit :unix-status 52)
  17 EOF
  18
  19 if [ $? != 52 ]; then
  20     rm $FASLS
  21     echo undefined-classoid-bug test failed: $?
  22     exit 1 # Failure
  23 fi
  24
  25 # success convention for script
  26 exit 104