mvn-module.lisp 520 Bytes
Newer Older
1 2 3 4 5 6
(in-package :cl-user)

;;; TODO: restore original ASDF configuration after running test
(defun asdf-add-test-mvn-module ()
  (asdf:initialize-source-registry
   `(:source-registry
7
     (:directory ,(asdf:system-relative-pathname :asdf-mvn-module "t/eg/"))
8 9 10 11 12 13 14 15 16 17
     :inherit-configuration)))

(unless (ignore-errors (asdf:find-system :test-mvn-module))
  (asdf-add-test-mvn-module))

(prove:plan 1)
(prove:ok (asdf:load-system :test-mvn-module)
          "Testing loading of ASDF:MVN-MODULE definition…")

(prove:finalize)