Array dump support. Create access function package xdump-data.

[eow] / eow.asd

diff --git a/eow.asd b/eow.asd
index f54b67648cf68ef141965a4a05b55ad947e63bee..e4c89478111f7c60b3f59bd042b79186df2c5fec 100644 (file)
--- a/eow.asd
+++ b/eow.asd
@@ -17,13 +17,30 @@
     :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"))
+                 (:file "xdump"
+                        :depends-on ("package"))
+                 (:file "xdump-data"
+                        :depends-on ("package" "xdump"))
+                (:file "log"
+                        :depends-on ("package"))
                 (:file "web"
-                       :depends-on ("package" "locked-queue"))
+                       :depends-on ("package" "locked-queue" "log"))
                  (: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"))