;; lib/feed/test-harness.sx — counter definitions for the feed conformance
;; suites, lifted from the inline epoch-2 defs in the old conformance.sh so the
;; shared driver (MODE=counters) can preload them before each suite.

(define feed-test-pass 0)
(define feed-test-fail 0)
(define
  feed-test
  (fn
    (name got expected)
    (if
      (= got expected)
      (set! feed-test-pass (+ feed-test-pass 1))
      (set! feed-test-fail (+ feed-test-fail 1)))))