Browse files

provide a LispWorks defsystem and a function to run self-tests.

  • Loading branch information...
1 parent 224024d commit a9b552e1ba28a927baf87616295b2d6d902c26ae @tuscland committed Sep 2, 2012
Showing with 50 additions and 0 deletions.
  1. +33 −0 defsystem.lisp
  2. +17 −0 tests/suite.lisp
View
33 defsystem.lisp
@@ -0,0 +1,33 @@
+(defsystem eos (:default-pathname "src")
+ :members ("package"
+ "utils"
+ "classes"
+ "check"
+ "test"
+ "explain"
+ "suite"
+ "run")
+ :rules ((:in-order-to :compile ("utils" "classes")
+ (:requires (:load "package")))
+ (:in-order-to :compile "check"
+ (:requires (:load "utils")))
+ (:in-order-to :compile "explain"
+ (:requires
+ (:load "classes")
+ (:load "check")))
+ (:in-order-to :compile "test"
+ (:requires (:load "classes")))
+ (:in-order-to :compile "suite"
+ (:requires
+ (:load "test")
+ (:load "utils")))
+ (:in-order-to :load "run"
+ (:requires
+ (:load "suite")
+ (:load "check")))))
+
+(defsystem eos-tests (:default-pathname "tests")
+ :members ("suite"
+ "tests")
+ :rules ((:in-order-to :compile "tests"
+ (:requires (:load "suite")))))
View
17 tests/suite.lisp
@@ -4,6 +4,7 @@
(def-suite Eos)
+#+asdf
(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :Eos-tests))))
(format t "~2&********************~@
** Starting tests **~@
@@ -18,3 +19,19 @@
** or just file a bugreport on github: **~@
** github.com/adlai/Eos/issues **~@
*****************************************~%"))
+
+#-asdf
+(defun run-self-tests ()
+ (format t "~2&********************~@
+ ** Starting tests **~@
+ ********************~%")
+ (run! 'Eos)
+ (format t "~2&*****************************************~@
+ ** Tests finished **~@
+ *****************************************~@
+ ** If there were any failures on your **~@
+ ** platform, please report them to me: **~@
+ ** (munchking at gmail dot com) **~@
+ ** or just file a bugreport on github: **~@
+ ** github.com/adlai/Eos/issues **~@
+ *****************************************~%"))

0 comments on commit a9b552e

Please sign in to comment.