Add a game state log dumping facility that produces a (load)able sexpr-log.
[eow] / unit-tests.lisp
1 (in-package #:empire-tests)
2
3 (deftestsuite empire-tests () ())
4
5 (deftestsuite empire-test-xdump (empire-tests) ())
6
7 (addtest (empire-test-xdump)
8   xdump-header-dispatch
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))))
14
15 (addtest (empire-test-xdump)
16   xdump-meta-col0-is-name
17   (xdump::t2)
18   (ensure-same (xdump::meta-name (aref xdump::*meta-meta* 0)) "name"))