Getting started on unit tests

[eow] / unit-tests.lisp

diff --git a/unit-tests.lisp b/unit-tests.lisp
new file mode 100644 (file)
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"))