X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcore.test.sh;h=978f23018ee659213c531fd5d37f6ce85ae5ba5a;hb=1f03c7f326823245708a84af86b31ac72bdb1742;hp=73936455ab0d1c4a48645da523ba75782f334758;hpb=406c4143b9aa508c35c0004f57f587170dfda166;p=sbcl.git

diff --git a/tests/core.test.sh b/tests/core.test.sh
index 7393645..978f230 100644
--- a/tests/core.test.sh
+++ b/tests/core.test.sh
@@ -85,4 +85,23 @@ else
   exit 1
 fi
 
+# saving runtime options _from_ executable cores
+run_sbcl <<EOF
+  (save-lisp-and-die "$tmpcore" :executable t)
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" --no-userinit <<EOF 
+  (save-lisp-and-die "$tmpcore" :executable t :save-runtime-options t)
+EOF
+chmod u+x "$tmpcore"
+./"$tmpcore" --no-userinit --version --eval '(quit)' <<EOF
+  (when (equal *posix-argv* '("./$tmpcore" "--version" "--eval" "(quit)"))
+    (quit :unix-status 42))
+EOF
+status=$?
+if [ $status != 42 ]; then
+    echo "saving runtime options from executable failed"
+    exit 1
+fi
+
 exit $EXIT_TEST_WIN