mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
ea0e1f96e1
Anything that invokes 'use_test_subdirectory' should go to /tmp, not just a few scripts that overrode TEST_BASEDIR. After this there are approximately 6 files that will fail if pwd isn't writable. Most involve run-compiler.sh and also filesys tests. Plus there's a hack in run-sbcl.sh without which it would already fail when writing into /tmp.
35 lines
1.1 KiB
Bash
35 lines
1.1 KiB
Bash
. ./subr.sh
|
|
|
|
use_test_subdirectory
|
|
|
|
tmpcore=${TEST_FILESTEM}_a.core
|
|
# unix can write a new file to same name as the one we're executing
|
|
# but not all OSes can
|
|
tmpcore2=${TEST_FILESTEM}_b.core
|
|
|
|
# Regression test for https://bugs.launchpad.net/sbcl/+bug/411925
|
|
# saving runtime options _from_ executable cores
|
|
run_sbcl <<EOF
|
|
(save-lisp-and-die "$tmpcore" :executable t)
|
|
EOF
|
|
chmod u+x "$tmpcore"
|
|
./"$tmpcore" --no-userinit --no-sysinit --noprint <<EOF
|
|
(save-lisp-and-die "$tmpcore2" :executable t :save-runtime-options t)
|
|
EOF
|
|
chmod u+x "$tmpcore2"
|
|
./"$tmpcore2" --no-userinit --no-sysinit --noprint --versions --eval '(exit)' <<EOF
|
|
;; tbh I have no idea how this asserts anything about saving options from executable
|
|
;; cores with saved options
|
|
(when #+unix (equal *posix-argv* '("./$tmpcore2" "--versions" "--eval" "(exit)"))
|
|
#-unix (equal (cdr *posix-argv*) '("--versions" "--eval" "(exit)"))
|
|
(exit :code 42))
|
|
EOF
|
|
status=$?
|
|
rm "$tmpcore" "$tmpcore2"
|
|
if [ $status -ne 42 ]; then
|
|
echo "saving runtime options from executable failed"
|
|
exit 1
|
|
fi
|
|
|
|
exit $EXIT_TEST_WIN
|