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
1adc8e95
Commit
1adc8e95
authored
Dec 14, 2011
by
Robert P. Goldman
Browse files
2.019.6: Added test for successful loading of weakly-depended-on system.
parent
c0b648ec
Changes
6
Hide whitespace changes
Inline
Side-by-side
asdf.asd
View file @
1adc8e95
...
...
@@ -14,7 +14,7 @@
:licence
"MIT"
:description
"Another System Definition Facility"
:long-description
"ASDF builds Common Lisp software organized into defined systems."
:version
"2.019.
5
"
;; to be automatically updated by bin/bump-revision
:version
"2.019.
6
"
;; to be automatically updated by bin/bump-revision
:depends-on
()
:components
((
:file
"asdf"
)
...
...
asdf.lisp
View file @
1adc8e95
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.019.
5
: Another System Definition Facility.
;;; This is ASDF 2.019.
6
: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
...
...
@@ -107,7 +107,7 @@
;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(
asdf-version
"2.019.
5
"
)
(
asdf-version
"2.019.
6
"
)
(
existing-asdf
(
find-class
'component
nil
))
(
existing-version
*asdf-version*
)
(
already-there
(
equal
asdf-version
existing-version
)))
...
...
test/test-weakly-depends-on-present.asd
0 → 100644
View file @
1adc8e95
(
defsystem
test-weakly-depends-on-present
:weakly-depends-on
(
file3-only
)
:if-component-dep-fails
:ignore
:components
((
:file
"file1"
)))
test/test-weakly-depends-on-present.script
0 → 100644
View file @
1adc8e95
;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)
;;;---------------------------------------------------------------------------
;;; Check to see if a weakly-depended-on system, which is present in the
;;; directory, actually gets loaded.
;;;---------------------------------------------------------------------------
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:load-system 'test-weakly-depends-on-present)
;; The weakly-depended-on system, file3-only, should be loaded...
(let* ((file3 (asdf:compile-file-pathname* "file3"))
(file3-date (file-write-date file3)))
;; (format t "~&test1 1: ~S ~S~%" file1 file1-date)
(assert file3-date)
;; and loaded
(assert (symbol-value (find-symbol (symbol-name :*file3*) :test-package)))))
;; The depending system (test-weakly-depends-on-present) loads
;; successfully. [2011/12/14:rpg]
(let* ((file1 (asdf:compile-file-pathname* "file1"))
(file1-date (file-write-date file1)))
;; (format t "~&test1 1: ~S ~S~%" file1 file1-date)
(assert file1-date)
;; and loaded
(assert (symbol-value (find-symbol (symbol-name :*file1*) :test-package)))))
test/test-weakly-depends-on.asd
→
test/test-weakly-depends-on
-unpresent
.asd
View file @
1adc8e95
(
defsystem
test-weakly-depends-on
(
defsystem
test-weakly-depends-on
-unpresent
:weakly-depends-on
(
does-not-exist
)
:if-component-dep-fails
:ignore
:components
((
:file
"file1"
)))
...
...
test/test-weakly-depends-on.script
→
test/test-weakly-depends-on
-unpresent
.script
View file @
1adc8e95
;;; -*- Lisp -*-
;;;---------------------------------------------------------------------------
;;; This test verifies that if you have a system with a weakly-depends-on
;;; dependency, and the weakly-depended-on system is NOT THERE, the depending
;;; system will still load successfully. [2011/12/14:rpg]
;;;---------------------------------------------------------------------------
(load "script-support.lisp")
(load-asdf)
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(asdf:load-system 'test-weakly-depends-on)
(asdf:load-system 'test-weakly-depends-on
-unpresent
)
;; test that it compiled
(let* ((file1 (asdf:compile-file-pathname* "file1"))
(file1-date (file-write-date file1)))
...
...
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