1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
3 (asdf:defsystem :iolib-tests
4 :description "IOLib test suite."
5 :author "Luis Oliveira <loliveira@common-lisp.net>"
6 :version (:read-file-form "../version.lisp-expr")
8 :defsystem-depends-on (:iolib.base)
9 :depends-on (:fiveam :iolib :iolib.pathnames)
10 :around-compile "iolib.asdf:compile-wrapper"
14 (:file "defsuites" :depends-on ("pkgdcl"))
15 (:file "base" :depends-on ("pkgdcl" "defsuites"))
16 (:file "file-paths-os" :depends-on ("pkgdcl" "defsuites")
17 :pathname #+unix "file-paths-unix")
18 (:file "events" :depends-on ("pkgdcl" "defsuites"))
19 (:file "streams" :depends-on ("pkgdcl" "defsuites"))
20 (:file "sockets" :depends-on ("pkgdcl" "defsuites"))))
22 (defmethod perform ((o test-op)
23 (c (eql (find-system :iolib-tests))))
24 (operate 'load-op :iolib-tests)
25 (funcall (intern (symbol-name '#:run!) '#:5am) :iolib))
27 (defmethod operation-done-p ((o test-op)
28 (c (eql (find-system :iolib-tests))))