0.8.20.21:
[sbcl.git] / 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