tests/iolib-tests.asd

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2
   3 (asdf:defsystem :iolib-tests
   4   :description "IOLib test suite."
   5   :author "Luis Oliveira <loliveira@common-lisp.net>"
   6   :version #.(with-open-file (f (merge-pathnames "../version.lisp-expr"
   7                                                  (or *compile-file-pathname*
   8                                                      *load-truename*)))
   9                (read f))
  10   :licence "MIT"
  11   :defsystem-depends-on (:iolib.base)
  12   :depends-on (:fiveam :iolib :iolib.pathnames)
  13   :default-component-class :iolib-source-file
  14   :components
  15   ((:file "pkgdcl")
  16    (:file "defsuites" :depends-on ("pkgdcl"))
  17    (:file "base" :depends-on ("pkgdcl" "defsuites"))
  18    (:file "file-paths-os" :depends-on ("pkgdcl" "defsuites")
  19      :pathname #+unix "file-paths-unix")
  20    (:file "events" :depends-on ("pkgdcl" "defsuites"))
  21    (:file "streams" :depends-on ("pkgdcl" "defsuites"))
  22    (:file "sockets" :depends-on ("pkgdcl" "defsuites"))))
  23
  24 (defmethod perform ((o test-op)
  25                     (c (eql (find-system :iolib-tests))))
  26   (operate 'load-op :iolib-tests)
  27   (funcall (intern (symbol-name '#:run!) '#:5am) :iolib))
  28
  29 (defmethod operation-done-p ((o test-op)
  30                              (c (eql (find-system :iolib-tests))))
  31   nil)