Getting started on unit tests master
authorGerd Flaig <gefla@pond.sub.org>
Sat, 1 May 2010 00:12:04 +0000 (02:12 +0200)
committerGerd Flaig <gefla@pond.sub.org>
Sat, 1 May 2010 00:12:04 +0000 (02:12 +0200)
eow.asd
package.lisp
unit-tests.lisp [new file with mode: 0644]

diff --git a/eow.asd b/eow.asd
index c433ba41c6ef709cee3658624e4c2f0a62ee1a41..dfe0fd30b5a1d9ed0732289f5eac50b351f06f52 100644 (file)
--- a/eow.asd
+++ b/eow.asd
@@ -17,7 +17,7 @@
     :version "0.0.1"
     :licence "MIT"
     :description "Web Empire client"
-    :depends-on (:usocket :hunchentoot :parenscript)
+    :depends-on (:usocket :hunchentoot :parenscript :lift)
     :components ((:file "package")
                  (:file "util"
                         :depends-on ("package"))
@@ -30,4 +30,6 @@
                 (:file "web"
                        :depends-on ("package" "locked-queue" "log"))
                  (:file "empire"
-                        :depends-on ("util" "log" "xdump"))))
+                        :depends-on ("util" "log" "xdump"))
+                (:file "unit-tests"
+                       :depends-on ("xdump"))))
index 5459b5028272ec08188f22cf1e12657744a3ec1b..d3e9d3b308b242a594d6010d24854aa1a47ff339 100644 (file)
@@ -25,4 +25,6 @@
     (:use :cl))
   (defpackage :xdump
     (:use :cl :xdump-data)
-    (:export :make-parser :parse-line)))
+    (:export :make-parser :parse-line :get-table :get-table-entry))
+  (defpackage :empire-tests
+    (:use :cl :lift)))
diff --git a/unit-tests.lisp b/unit-tests.lisp
new file mode 100644 (file)
index 0000000..a55a115
--- /dev/null
@@ -0,0 +1,18 @@
+(in-package #:empire-tests)
+
+(deftestsuite empire-tests () ())
+
+(deftestsuite empire-test-xdump (empire-tests) ())
+
+(addtest (empire-test-xdump)
+  xdump-header-dispatch
+  (let ((parser (xdump:make-parser)))
+    (xdump:parse-line parser "XDUMP meta meta 1242293190")
+    (with-slots (xdump::name xdump::timestamp) parser
+      (ensure-same xdump::name "meta")
+      (ensure-same xdump::timestamp 1242293190))))
+
+(addtest (empire-test-xdump)
+  xdump-meta-col0-is-name
+  (xdump::t2)
+  (ensure-same (xdump::meta-name (aref xdump::*meta-meta* 0)) "name"))