Commit 029bfd4d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

test-program: tweak source-registry, since lisp-invocation/all depends on fare-utils.

parent 38e41ab8
...@@ -16,19 +16,17 @@ ...@@ -16,19 +16,17 @@
(truename (subpathname #p"sys:" argv0))))) (truename (subpathname #p"sys:" argv0)))))
;; Try to load lisp-invocation from xcvb ;; Try to load lisp-invocation from xcvb
(setf *central-registry* (initialize-source-registry
(list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF `(:source-registry
*uiop-directory* (:directory ,*asdf-directory*)
;; try finding xcvb's lisp-invocation right next to asdf. (:directory (,*asdf-directory* "uiop/"))
(subpathname *asdf-directory* "ext/lisp-invocation/"))) (:tree (,*asdf-directory* "ext/"))
(unless (find-system :lisp-invocation nil) :inherit-configuration))
;; try harder by enabling the user's source-registry
(initialize-source-registry ""))
(unless (find-system :lisp-invocation nil) (unless (find-system :lisp-invocation nil)
(leave-test "Couldn't find lisp-invocation. Probably your ASDF ext/ directory needs submodule update." 1)) (leave-test "Couldn't find lisp-invocation. Probably your ASDF ext/ directory needs submodule update." 1))
(load-system "lisp-invocation")
(unless (version-satisfies (find-system "lisp-invocation") "1.0.11") (unless (version-satisfies (find-system "lisp-invocation") "1.0.11")
(leave-test "Lisp-invocation library isn't new enough to test successfully. Probably your ASDF ext/ directory needs submodule update." 1)) (leave-test "Lisp-invocation library isn't new enough to test successfully. Probably your ASDF ext/ directory needs submodule update." 1))
(load-system "lisp-invocation/all")
;; Disable any user source registry. ;; Disable any user source registry.
(initialize-source-registry `(:source-registry :ignore-inherited-configuration)) (initialize-source-registry `(:source-registry :ignore-inherited-configuration))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment