Commit f150fda3 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Improve test-sysdef-asdf: test for fallback vs the real thing.

Remove trace on clisp
parent df285161
;;; -*- Lisp -*- ;;; -*- Lisp -*-
;; Empty configuration: no asdf.asd
(initialize-source-registry (initialize-source-registry
'(:source-registry :ignore-inherited-configuration)) '(:source-registry :ignore-inherited-configuration))
(load-system :asdf) (load-system :asdf)
;; We didn't find it and got the fallback
(assert-equal nil (system-source-file (find-system :asdf)))
;; Proper configuration: asdf.asd from the source above
(initialize-source-registry (initialize-source-registry
`(:source-registry `(:source-registry
(:directory ,*asdf-directory*) (:directory ,*asdf-directory*)
(:directory ,*uiop-directory*) (:directory ,*uiop-directory*)
:ignore-inherited-configuration)) :ignore-inherited-configuration))
(load-system :asdf) (load-system :asdf)
;; This time we found it
(assert-pathname-equal (subpathname *asdf-directory* "asdf.asd")
(system-source-file (find-system :asdf)))
(defun system-lisp-files (system) (defun system-lisp-files (system)
(loop :for f :in (required-components system :keep-component 'cl-source-file) (loop :for f :in (required-components system :keep-component 'cl-source-file)
...@@ -22,8 +29,6 @@ ...@@ -22,8 +29,6 @@
:output :string :error-output t :directory *asdf-directory*) :output :string :error-output t :directory *asdf-directory*)
:separator #(#\space #\newline #\return #\tab)))) :separator #(#\space #\newline #\return #\tab))))
#+clisp (trace run-program reduce/strcat)
(defmacro compare-files (system target) (defmacro compare-files (system target)
`(assert-equal (system-lisp-files ,system) (makefile-lisp-files ,target))) `(assert-equal (system-lisp-files ,system) (makefile-lisp-files ,target)))
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