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 #.(with-open-file (f (merge-pathnames "../version.lisp-expr"
7 (or *compile-file-pathname*
11 :defsystem-depends-on (:iolib.base)
12 :depends-on (:fiveam :iolib :iolib.pathnames)
13 :default-component-class :iolib-source-file
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"))))
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))
29 (defmethod operation-done-p ((o test-op)
30 (c (eql (find-system :iolib-tests))))