;; lib/ocaml/tests/tokenize.sx — smoke tests for the OCaml tokenizer.
;;
;; Tests are exercised via lib/ocaml/test.sh, which drives sx_server.exe
;; over the epoch protocol. This file provides a small evaluator that
;; returns short diagnostic values for each fixture so the runner can
;; grep them out of one batched run.

(define
  ocaml-test-tok-type
  (fn (src i) (get (nth (ocaml-tokenize src) i) :type)))

(define
  ocaml-test-tok-value
  (fn (src i) (get (nth (ocaml-tokenize src) i) :value)))

(define ocaml-test-tok-count (fn (src) (len (ocaml-tokenize src))))