+(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"))