Add a game state log dumping facility that produces a (load)able sexpr-log.
[eow] / eow.asd
diff --git a/eow.asd b/eow.asd
index 5c7971efae2ee76c920567cc3b259d8572c4b482..e4c89478111f7c60b3f59bd042b79186df2c5fec 100644 (file)
--- a/eow.asd
+++ b/eow.asd
     :version "0.0.1"
     :licence "MIT"
     :description "Web Empire client"
     :version "0.0.1"
     :licence "MIT"
     :description "Web Empire client"
-    :depends-on (:usocket :hunchentoot :parenscript)
+    :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 :lift)
     :components ((:file "package")
                  (:file "util"
                         :depends-on ("package"))
                  (:file "locked-queue"
                         :depends-on ("package"))
     :components ((:file "package")
                  (:file "util"
                         :depends-on ("package"))
                  (:file "locked-queue"
                         :depends-on ("package"))
+                 (:file "xdump"
+                        :depends-on ("package"))
+                 (:file "xdump-data"
+                        :depends-on ("package" "xdump"))
+                (:file "log"
+                        :depends-on ("package"))
                 (:file "web"
                        :depends-on ("package" "locked-queue" "log"))
                  (:file "empire"
                 (:file "web"
                        :depends-on ("package" "locked-queue" "log"))
                  (:file "empire"
-                        :depends-on ("util" "log"))
-                (:file "log")))
+                        :depends-on ("util" "log" "xdump"))
+                (:file "unit-tests"
+                       :depends-on ("xdump"))))
+
+(defsystem eow-test
+  :components ((:file "unit-tests"))
+  :depends-on ("eow" "lift"))