Skip to content
Snippets Groups Projects
Commit 1adc8e95 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

2.019.6: Added test for successful loading of weakly-depended-on system.

parent c0b648ec
No related branches found
No related tags found
No related merge requests found
......@@ -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")
......
;;; -*- 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)))
......
(defsystem test-weakly-depends-on-present
:weakly-depends-on (file3-only)
:if-component-dep-fails :ignore
:components ((:file "file1")))
;;; -*- 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)))))
(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")))
......
;;; -*- 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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment