git.pond.sub.org Git - eow/blob - 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"))