tests/iolib-tests.asd

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-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   :licence "MIT"
   7   :depends-on (:fiveam :iolib :iolib.pathnames)
   8   :components
   9   ((:file "pkgdcl")
  10    (:file "defsuites" :depends-on ("pkgdcl"))
  11    (:file "base" :depends-on ("pkgdcl" "defsuites"))
  12    (:file "uchars" :depends-on ("pkgdcl" "defsuites"))
  13    (:file "ustrings" :depends-on ("pkgdcl" "defsuites" "uchars"))
  14    (:file "file-paths-os" :depends-on ("pkgdcl" "defsuites")
  15           :pathname #+unix "file-paths-unix")
  16    (:file "events" :depends-on ("pkgdcl" "defsuites"))
  17    (:file "streams" :depends-on ("pkgdcl" "defsuites"))
  18    (:file "sockets" :depends-on ("pkgdcl" "defsuites"))))
  19
  20 (defmethod asdf:perform ((o asdf:test-op)
  21                          (c (eql (asdf:find-system :iolib-tests))))
  22   (asdf:operate 'asdf:load-op :iolib-tests)
  23   (funcall (intern (symbol-name '#:run!) '#:5am) :iolib))
  24
  25 (defmethod asdf:operation-done-p ((o asdf:test-op)
  26                                   (c (eql (asdf:find-system :iolib-tests))))
  27   nil)