; lib/apl/test-harness.sx — counters + assertion fn for the shared conformance
; driver (lib/guest/conformance.sh, MODE=counters). Loaded as a PRELOAD so each
; suite starts from a fresh 0/0; suites call (apl-test name got expected).

(define apl-test-pass 0)
(define apl-test-fail 0)

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