test-asdf.asd 2.26 KB
Newer Older
1
(defpackage :test-asdf-system
2
  (:use :cl :asdf))
3 4
(in-package :test-asdf-system)

5 6 7
(defvar *times-loaded* 0)
(incf *times-loaded*)

8
(defsystem :test-asdf :class package-inferred-system)
9 10 11

(defsystem :test-asdf/all
  :version "0"
12 13
  :depends-on ((:version :test-asdf/2 "2")
               :test-asdf/4))
14

15
(defsystem :test-asdf/1
16 17
  :components ((:file "file1" :if-feature :common-lisp)
               (:file "does-not-exist" :if-feature (:not :common-lisp))))
18

19
(defsystem :test-asdf/2
20
  :version "2.2"
21
  :depends-on (:test-asdf/1)
22 23 24 25
  :components ((:module "foo" :pathname ""
                :components ((:module "bar" :pathname ""
                              :components ((:file "file2")))))))

26
(defsystem :test-asdf/4
27 28 29
  :components ((:file "file3")
               (:file "file4" :in-order-to ((load-op (load-op "file3"))
                                            (compile-op (load-op "file3"))))))
30

31
(defsystem :test-asdf/test9-1
32 33 34 35 36
  :version "1.1"
  :components ((:file "file2"))
  :depends-on ((:version :test-asdf/test9-2 "2.0")))

(defsystem :test-asdf/test-module-depend
37 38 39
  :depends-on
  ((:feature :sbcl (:require :sb-posix))
   (:feature :allegro (:require "osi")))
40
  :components
41 42
  ((:file "file1" :if-feature :common-lisp)
   (:file "doesnt-exist" :if-feature (:not :common-lisp))
43 44 45 46 47 48 49 50
   (:module "quux"
    :pathname ""
    :depends-on ("file1")
    :components
    ((:file "file2")
     (:module "file3mod"
      :pathname ""
      :components
51 52
      ((:file "file3" :if-feature :common-lisp)
       (:file "does-not-exist" :if-feature (:not :common-lisp))))))))
53

54 55 56 57 58 59 60

(defsystem :test-asdf/test9-2
  :version "1.0"
  :components ((:file "file1")))

(defsystem :test-asdf/test9-3
  :depends-on ((:version :test-asdf/test9-2 "1.0")))
61 62 63 64 65 66

(defsystem :test-asdf/test-source-directory-1
  :pathname "some/relative/pathname/")

(defsystem :test-asdf/test-source-directory-2
  :pathname "some/relative/pathname/with-file.type")
67 68 69 70 71

(defsystem :test-asdf/bundle-1
  :components ((:file "file1") (:file "file3")))

(defsystem :test-asdf/bundle-2
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
72 73 74
  :depends-on (:test-asdf/bundle-1) :components
  ((:file "file2")
   (:file "invalid-file" :if-feature (:not :common-lisp))))
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
75

76 77 78 79 80 81
(defsystem :test-asdf/force
  :depends-on (:test-asdf/force1)
  :components ((:file "file3")))

(defsystem :test-asdf/force1
  :components ((:file "file1")))