; Phase 1 — event record accessors. Uses the persist-test harness
; (persist-test name got expected) provided by conformance.sh.

(persist-test
  "event-stream"
  (persist/event-stream
    (persist/event "s" 1 "t" 0 {}))
  "s")
(persist-test
  "event-seq"
  (persist/event-seq (persist/event "s" 3 "t" 0 {}))
  3)
(persist-test
  "event-type"
  (persist/event-type
    (persist/event "s" 1 "create" 0 {}))
  "create")
(persist-test
  "event-at"
  (persist/event-at (persist/event "s" 1 "t" 42 {}))
  42)
(persist-test
  "event-data"
  (persist/event-data
    (persist/event "s" 1 "t" 0 {:x 9}))
  {:x 9})
(persist-test
  "event is a dict with all fields"
  (len (keys (persist/event "s" 1 "t" 0 {})))
  5)