giles
9a090c6e42
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 55s
Atoms (literals/var/con/unit/list), application (left-assoc), prefix - / not, 29-op precedence table via pratt-op-lookup (incl. keyword-spelled mod/land/ lor/lxor/lsl/lsr/asr), tuples, parens, if/then/else, fun, let, let rec with function shorthand. AST follows Haskell-on-SX (:int / :op / :fun / etc).
22 lines
653 B
Plaintext
22 lines
653 B
Plaintext
;; lib/ocaml/tests/tokenize.sx — smoke-test helpers.
|
|
;;
|
|
;; Tests are exercised via lib/ocaml/test.sh, which drives sx_server.exe
|
|
;; over the epoch protocol. This file provides small accessors so the
|
|
;; bash runner can grep short diagnostic values 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))))
|
|
|
|
(define ocaml-test-parse-str (fn (src) (ocaml-parse src)))
|
|
|
|
(define
|
|
ocaml-test-parse-head
|
|
(fn (src) (nth (ocaml-parse src) 0)))
|