mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
0d31647d33
The tests when parallelized finish in about 4 seconds. And it's easier to discern one test from the next.
35 lines
822 B
Bash
35 lines
822 B
Bash
. ./subr.sh
|
|
|
|
use_test_subdirectory
|
|
|
|
tmpcore=$TEST_FILESTEM.core
|
|
tmpoutput=$TEST_FILESTEM.txt
|
|
|
|
# test suppression of banner in executable cores
|
|
run_sbcl <<EOF
|
|
(save-lisp-and-die "$tmpcore" :executable t)
|
|
EOF
|
|
chmod u+x "$tmpcore"
|
|
# FIXME: Shouldn't this test use "run_sbcl_with_core" ?
|
|
./"$tmpcore" > "$tmpoutput" --no-userinit --no-sysinit --noprint <<EOF
|
|
(exit :code 71)
|
|
EOF
|
|
status=$?
|
|
if [ $status != 71 ]; then
|
|
echo "failure in banner suppression: $status"
|
|
exit 1
|
|
elif [ -s "$tmpoutput" ]; then
|
|
echo "failure in banner suppression: nonempty output:"
|
|
echo ---
|
|
cat "$tmpoutput"
|
|
echo ---
|
|
exit 1
|
|
elif [ -f "$tmpoutput" ]; then
|
|
echo "/Executable suppressed banner, good."
|
|
else
|
|
echo "failure in banner suppression: $tmpoutput was not created or something funny happened."
|
|
exit 1
|
|
fi
|
|
|
|
exit $EXIT_TEST_WIN
|