Return list of failed tests as second value of RUN

[fiveam.git] / fiveam.asd

diff --git a/fiveam.asd b/fiveam.asd
index 22f118f..9a056fa 100644 (file)
--- a/fiveam.asd
+++ b/fiveam.asd
@@ -2,18 +2,22 @@
 
 (defsystem :fiveam
   :author "Edward Marco Baringer <mb@bese.it>"
+  :version #.(with-open-file (f (merge-pathnames "version.lisp-expr"
+                                                 (or *compile-file-pathname*
+                                                     *load-truename*)))
+               (read f))
   :depends-on (:alexandria)
   :pathname "src/"
-  :components ((:file "packages")
-               (:file "utils" :depends-on ("packages"))
-               (:file "check" :depends-on ("packages" "utils"))
-               (:file "fixture" :depends-on ("packages"))
-               (:file "classes" :depends-on ("packages"))
-               (:file "random" :depends-on ("packages" "check"))
-               (:file "test" :depends-on ("packages" "fixture" "classes"))
-               (:file "explain" :depends-on ("packages" "utils" "check" "classes" "random"))
-               (:file "suite" :depends-on ("packages" "test" "classes"))
-               (:file "run" :depends-on ("packages" "check" "classes" "test" "explain" "suite")))
+  :components ((:file "package")
+               (:file "utils" :depends-on ("package"))
+               (:file "check" :depends-on ("package" "utils"))
+               (:file "fixture" :depends-on ("package"))
+               (:file "classes" :depends-on ("package"))
+               (:file "random" :depends-on ("package" "check"))
+               (:file "test" :depends-on ("package" "fixture" "classes"))
+               (:file "explain" :depends-on ("package" "utils" "check" "classes" "random"))
+               (:file "suite" :depends-on ("package" "test" "classes"))
+               (:file "run" :depends-on ("package" "check" "classes" "test" "explain" "suite")))
   :in-order-to ((test-op (load-op :fiveam-test)))
   :perform (test-op :after (op c)
              (funcall (intern (string '#:run!) :it.bese.fiveam)
@@ -26,6 +30,6 @@
   :components ((:file "suite")
                (:file "tests" :depends-on ("suite"))))
 
-;;;;@include "src/packages.lisp"
+;;;;@include "src/package.lisp"
 
 ;;;;@include "t/example.lisp"