Commit 38337a5a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Trivial package-system test.

Hush a bit asdf-pathname-test.script.
parent eb0afa82
......@@ -378,8 +378,8 @@
(dolist (file test-files)
(ensure-directories-exist file)
(with-open-file (stream file :direction :output :if-exists :supersede :if-does-not-exist :create)
(println ":dummy-content" stream)
(format t "Created test file ~S~%" file)))
;;(format t "Created test file ~S~%" file)
(println ":dummy-content" stream)))
(multiple-value-bind (second minute hour day month year)
(decode-universal-time (setf start-time (get-universal-time)) 0)
(let ((header (format nil "~4,'0d~2,'0d~2,'0dT~2,'0d~2,'0d~2,'0dZ : ~a ~a ~a"
(register-directory (subpathname *test-directory* "package-system-test/"))
(load-system :package-system-test/a/x)
(load-system :package-system-test/d)
(defpackage package-system-test/a (:use cl))
(defpackage package-system-test/b (:use cl package-system-test/a))
(defpackage package-system-test/c (:use cl package-system-test/a))
(defpackage package-system-test/d (:use cl package-system-test/b package-system-test/c))
(in-package :asdf)
(defsystem package-system-test
:class package-system
#.(unless (find-class 'package-system nil) '(:asdf-package-system)))
......@@ -2,25 +2,25 @@
(:use :cl :asdf))
(in-package :test-asdf-system)
(defsystem :test-asdf)
(defsystem :test-asdf :class package-system)
(defsystem :test-asdf/all
:version "0"
:depends-on ((:version :test-asdf/file2 "2")
:depends-on ((:version :test-asdf/2 "2")
(defsystem :test-asdf/file1
(defsystem :test-asdf/1
:components ((:file "file1" :if-feature :common-lisp)
(:file "does-not-exist" :if-feature (:not :common-lisp))))
(defsystem :test-asdf/file2
(defsystem :test-asdf/2
:version "2.2"
:depends-on (:test-asdf/file1)
:depends-on (:test-asdf/1)
:components ((:module "foo" :pathname ""
:components ((:module "bar" :pathname ""
:components ((:file "file2")))))))
(defsystem :test-asdf/file4
(defsystem :test-asdf/4
:components ((:file "file3")
(:file "file4" :in-order-to ((load-op (load-op "file3"))
(compile-op (load-op "file3"))))))
......@@ -22,17 +22,17 @@
:version "1.1")
(def-test-system :versioned-system-3
:defsystem-depends-on ((:version :test-asdf/file2 "2.1"))
:defsystem-depends-on ((:version :test-asdf/2 "2.1"))
:pathname #.*test-directory*
:version "1.2")
(def-test-system :versioned-system-file-form
:defsystem-depends-on ((:version :test-asdf/file2 "2.1"))
:defsystem-depends-on ((:version :test-asdf/2 "2.1"))
:pathname #.*test-directory*
:version (:read-file-form "version.lisp-expr" :at 0))
(def-test-system :versioned-system-file-line
:defsystem-depends-on ((:version :test-asdf/file2 "2.1"))
:defsystem-depends-on ((:version :test-asdf/2 "2.1"))
:pathname #.*test-directory*
:version (:read-file-line "version.lisp-expr" :at 1))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment