Return list of failed tests as second value of RUN
[fiveam.git] / fiveam.asd
1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
2
3 (defsystem :fiveam
4   :author "Edward Marco Baringer <mb@bese.it>"
5   :version #.(with-open-file (f (merge-pathnames "version.lisp-expr"
6                                                  (or *compile-file-pathname*
7                                                      *load-truename*)))
8                (read f))
9   :depends-on (:alexandria)
10   :pathname "src/"
11   :components ((:file "package")
12                (:file "utils" :depends-on ("package"))
13                (:file "check" :depends-on ("package" "utils"))
14                (:file "fixture" :depends-on ("package"))
15                (:file "classes" :depends-on ("package"))
16                (:file "random" :depends-on ("package" "check"))
17                (:file "test" :depends-on ("package" "fixture" "classes"))
18                (:file "explain" :depends-on ("package" "utils" "check" "classes" "random"))
19                (:file "suite" :depends-on ("package" "test" "classes"))
20                (:file "run" :depends-on ("package" "check" "classes" "test" "explain" "suite")))
21   :in-order-to ((test-op (load-op :fiveam-test)))
22   :perform (test-op :after (op c)
23              (funcall (intern (string '#:run!) :it.bese.fiveam)
24                       :it.bese.fiveam)))
25
26 (defsystem :fiveam-test
27   :author "Edward Marco Baringer <mb@bese.it>"
28   :depends-on (:fiveam)
29   :pathname "t/"
30   :components ((:file "suite")
31                (:file "tests" :depends-on ("suite"))))
32
33 ;;;;@include "src/package.lisp"
34
35 ;;;;@include "t/example.lisp"