1 (in-package #:empire-tests)
3 (deftestsuite empire-tests () ())
5 (deftestsuite empire-test-xdump (empire-tests) ())
7 (addtest (empire-test-xdump)
9 (let ((parser (xdump:make-parser)))
10 (xdump:parse-line parser "XDUMP meta meta 1242293190")
11 (with-slots (xdump::name xdump::timestamp) parser
12 (ensure-same xdump::name "meta")
13 (ensure-same xdump::timestamp 1242293190))))
15 (addtest (empire-test-xdump)
16 xdump-meta-col0-is-name
18 (ensure-same (xdump::meta-name (aref xdump::*meta-meta* 0)) "name"))