1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
3 (asdf:defsystem :iolib-tests
4 :description "IOLib test suite."
5 :author "Luis Oliveira <loliveira@common-lisp.net>"
7 :depends-on (:fiveam :iolib :iolib.pathnames)
10 (:file "defsuites" :depends-on ("pkgdcl"))
11 (:file "base" :depends-on ("pkgdcl" "defsuites"))
12 (:file "runes" :depends-on ("pkgdcl" "defsuites"))
13 (:file "rods" :depends-on ("pkgdcl" "defsuites"))
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"))))
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))
25 (defmethod asdf:operation-done-p ((o asdf:test-op)
26 (c (eql (asdf:find-system :iolib-tests))))