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
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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")
+2 −2
Original line number Diff line number Diff line
;;; -*- 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)))
+5 −0
Original line number Diff line number Diff line
(defsystem test-weakly-depends-on-present
  :weakly-depends-on (file3-only)
  :if-component-dep-fails :ignore
  :components ((:file "file1")))
+31 −0
Original line number Diff line number Diff line
;;; -*- 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)))))
+1 −1
Original line number Diff line number Diff line
(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")))
Loading