ce/test.ml
2022-01-10 23:27:37 +09:00

5 lines
154 B
OCaml

let test_lex =
let open Token in
let t = Lex.tokenize "10 + 20 30/40" |> List.of_seq in
assert (t = [Int 10; Plus; Int 20; Int 30; Slash; Int 40])