Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
a674c180
Commit
a674c180
authored
Dec 31, 2013
by
Francois-Rene Rideau
Browse files
Test that Makefile and ASDF agree on order of files in UIOP and ASDF/DEFSYSTEM.
parent
1c5891e2
Changes
1
Show whitespace changes
Inline
Side-by-side
test/test-sysdef-asdf.script
View file @
a674c180
...
...
@@ -10,3 +10,23 @@
(:directory ,*uiop-directory*)
:ignore-inherited-configuration))
(load-system :asdf)
(defun system-lisp-files (system)
(loop :for f :in (required-components system :keep-component 'cl-source-file)
:collect (enough-namestring (component-pathname f) *asdf-directory*)))
(defun makefile-lisp-files (target)
(remove-if 'emptyp
(split-string
(run-program `("make" "--quiet" "--no-print-directory" ,target)
:output :string :error-output t :directory *asdf-directory*)
:separator #(#\space #\newline #\return #\tab))))
(defmacro compare-files (system target)
`(assert-equal (system-lisp-files ,system) (makefile-lisp-files ,target)))
(DBG "Testing that the Makefile and ASDF agree on the order of UIOP files")
(compare-files :uiop "driver-files")
(DBG "Testing that the Makefile and ASDF agree on the order of ASDF/DEFSYSTEM files")
(compare-files :asdf/defsystem "defsystem-files")
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment