simple-date.asd

   1 (defpackage :simple-date-system
   2   (:use :common-lisp :asdf))
   3 (in-package :simple-date-system)
   4
   5 (eval-when (:compile-toplevel :load-toplevel :execute)
   6   (defparameter *glue*
   7     (if (find-package :cl-postgres)
   8         '((:file "cl-postgres-glue" :depends-on ("simple-date"))))))
   9
  10 (defsystem :simple-date
  11   :components
  12   ((:module :simple-date
  13             :components ((:file "simple-date")
  14                          . #.*glue*))))
  15
  16 (defsystem :simple-date-tests
  17   :depends-on (:fiveam :simple-date)
  18   :components
  19   ((:module :simple-date
  20             :components ((:file "tests")))))
  21
  22 (defmethod perform ((op asdf:test-op) (system (eql (find-system :simple-date))))
  23   (asdf:oos 'asdf:load-op :simple-date-tests)
  24   (funcall (intern (string :run!) (string :it.bese.FiveAM)) :simple-date))
  25