#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 ")))