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