giles
85b7fed4fc
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 52s
Idents, ctors, 51 keywords, numbers (int/float/hex/exp/underscored), strings + chars with escapes, type variables, 26 op/punct tokens, and nested (* ... *) block comments. Tests via epoch protocol against sx_server.exe.
17 lines
572 B
Plaintext
17 lines
572 B
Plaintext
;; 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))))
|