: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"))
(: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"))))
(: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)))
--- /dev/null
+(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"))