Add :application-type parameter for save-lisp-and-die on Windows.
[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 . ./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