external/ch-util/ch-util-test.asd

   1
   2 (defpackage #:ch-util-test-system (:use #:asdf #:cl))
   3 (in-package #:ch-util-test-system)
   4
   5 ;;;;
   6 ;;;; The following section customizes asdf to work with filenames
   7 ;;;; with a .cl extension and to put fasl files in a separate
   8 ;;;; directory.
   9 ;;;;
  10 ;;;; To enable this behvior, use asdf component type
  11 ;;;;  :ch-util-test-cl-source-file
  12 ;;;;
  13 (defclass ch-util-test-cl-source-file (cl-source-file) ())
  14
  15 (defparameter *fasl-directory*
  16   (make-pathname :directory '(:relative #+sbcl "sbcl-fasl"
  17                               #+openmcl "openmcl-fasl"
  18                               #-(or sbcl openmcl) "fasl")))
  19
  20 (defmethod source-file-type ((c ch-util-test-cl-source-file) (s module)) "cl")
  21
  22 (defmethod asdf::output-files :around ((operation compile-op) (c ch-util-test-cl-source-file))
  23   (list (merge-pathnames *fasl-directory* (compile-file-pathname (component-pathname c)))))
  24
  25 (defsystem #:ch-util-test
  26   :name "ch-util-test"
  27   :author "Cyrus Harmon <ch-lisp@bobobeach.com>"
  28   :version #.(with-open-file
  29                  (vers (merge-pathnames "version.lisp-expr" *load-truename*))
  30                (read vers))
  31   :licence "BSD"
  32   :description "Tests for ch-util"
  33   :depends-on (:ch-util)
  34   :components
  35   ((:module :test
  36             :components
  37             ((:ch-util-test-cl-source-file "defpackage")
  38              (:ch-util-test-cl-source-file "test-ch-util" :depends-on ("defpackage"))))))
  39