Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
6ca6db5d
Commit
6ca6db5d
authored
May 25, 2010
by
Robert P. Goldman
Browse files
New test for modules that put their files in the top-level directory of the system.
parent
6a89cbc0
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/test-samedir-modules.asd
0 → 100644
View file @
6ca6db5d
;;; -*- Lisp -*-
(
asdf:defsystem
test-samedir-modules
:components
((
:module
"here"
:components
(
(
:file
"file2"
:in-order-to
((
compile-op
(
load-op
"file1"
))))
(
:file
"file1"
))
:pathname
""
)))
#|
from clean, check that all fasl files build and that some function
defined in the second file is present
|#
test/test-samedir-modules.script
0 → 100644
View file @
6ca6db5d
;;; -*- Lisp -*-
(load "script-support")
(load-asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:operate 'asdf:load-op 'test-samedir-modules)
;; test that it compiled
(let* ((file1 (asdf:compile-file-pathname* "file1"))
(file2 (asdf:compile-file-pathname* "file2"))
(file1-date (file-write-date file1)))
(format t "~&test samedir modules 1: ~S ~S~%" file1 file1-date)
(assert file1-date)
(assert (file-write-date file2))
;; and loaded
(assert (symbol-value (find-symbol (symbol-name :*file1*) :test-package)))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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