X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finit.test.sh;h=642d5ca465f6c3ecb59b21181f409fc7f3fa2861;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=fed1fb8341ae943db4c90f4612644a2850dfb37e;hpb=a42922aef908a1b45ae5420d51b2ca7ee1bafb9e;p=sbcl.git

diff --git a/tests/init.test.sh b/tests/init.test.sh
index fed1fb8..642d5ca 100644
--- a/tests/init.test.sh
+++ b/tests/init.test.sh
@@ -20,6 +20,7 @@ use_test_subdirectory
 tmpcore="init-test.core"
 
 run_sbcl <<EOF
+  (require :sb-introspect)
   (defun custom-userinit-pathname ()
      "$SBCL_PWD/custom-userinit.lisp")
   (defun custom-sysinit-pathname ()
@@ -33,6 +34,11 @@ if [ $? != 0 ]; then
     exit 1
 fi
 run_sbcl_with_core "$tmpcore" --disable-debugger <<EOF
+  (assert (string= (custom-sysinit-pathname)
+                   (namestring
+                    (sb-introspect:definition-source-pathname
+                     (car (sb-introspect:find-definition-sources-by-name
+                           'sysinit-21 :function))))))
   (userinit-quit (sysinit-21))
 EOF
 check_status_maybe_lose "userinit and sysinit loading" $? 21 "(loading worked)"