From: Gerd Flaig <gefla@pond.sub.org>
Date: Sat, 1 May 2010 00:12:04 +0000 (+0200)
Subject: Getting started on unit tests
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=96d5b46f8a408652757fb21a801c005697dc45f7;ds=sidebyside

Getting started on unit tests
---

diff --git a/eow.asd b/eow.asd
index c433ba4..dfe0fd3 100644
--- 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"))))
diff --git a/package.lisp b/package.lisp
index 5459b50..d3e9d3b 100644
--- a/package.lisp
+++ b/package.lisp
@@ -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
index 0000000..a55a115
--- /dev/null
+++ b/unit-tests.lisp
@@ -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"))