parser test

dev-srcloc
Matthew Butterick 8 years ago
parent b6a45815ab
commit 747e59ebc5

@ -1,4 +1,24 @@
#lang brag
jsonic-program: (s-exp | json-char)*
s-exp: SEXP-TOK
json-char: CHAR-TOK
#lang br
(require br/demo/jsonic-2/parser
br/demo/jsonic-2/tokenizer
brag/support
rackunit)
(check-equal?
(parse-tree (apply-tokenizer tokenize "// line commment\n"))
'(jsonic-program))
(check-equal?
(parse-tree (apply-tokenizer tokenize "@$ 42 $@"))
'(jsonic-program (s-exp " 42 ")))
(check-equal?
(parse-tree (apply-tokenizer tokenize "hi"))
'(jsonic-program
(json-char "h")
(json-char "i")))
(check-equal?
(parse-tree (apply-tokenizer tokenize "hi\n// comment\n@$ 42 $@"))
'(jsonic-program
(json-char "h")
(json-char "i")
(json-char "\n")
(s-exp " 42 ")))
Loading…
Cancel
Save