You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
beautiful-racket/beautiful-racket-demo/jsonic-demo-2/parser-test.rkt

21 lines
563 B
Racket

#lang br
(require "parser.rkt" "tokenizer.rkt" 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 ")))