Put tests in separate system

[eow] / eow.asd

diff --git a/eow.asd b/eow.asd
index 993444c907c0fde8985536226045b962c37d6636..8f1354c8e0cfe682abe4e0f6cff7b806ee4d0bb9 100644 (file)
--- a/eow.asd
+++ b/eow.asd
@@ -17,9 +17,28 @@
     :version "0.0.1"
     :licence "MIT"
     :description "Web Empire client"
     :version "0.0.1"
     :licence "MIT"
     :description "Web Empire client"

-    :depends-on (:usocket)
+    :in-order-to ((test-op (load-op eow-test)))
+    :perform (test-op :after (op c)
+                     (describe (funcall (intern "RUN-TESTS" :lift) 
+                                        :suite (intern "EMPIRE-TESTS"
+                                                       :empire-tests))))
+    :depends-on (:usocket :hunchentoot :parenscript)

     :components ((:file "package")
                  (:file "util"
                         :depends-on ("package"))
     :components ((:file "package")
                  (:file "util"
                         :depends-on ("package"))

+                 (:file "locked-queue"
+                        :depends-on ("package"))
+                 (:file "xdump"
+                        :depends-on ("package"))
+                (:file "log"
+                        :depends-on ("package"))
+                (:file "web"
+                       :depends-on ("package" "locked-queue" "log"))

                  (:file "empire"
                  (:file "empire"

-                        :depends-on ("util"))))
+                        :depends-on ("util" "log" "xdump"))
+                (:file "unit-tests"
+                       :depends-on ("xdump"))))
+
+(defsystem eow-test
+  :components ((:file "unit-tests"))
+  :depends-on ("eow" "lift"))