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.
19 lines
433 B
Racket
19 lines
433 B
Racket
9 years ago
|
#lang racket/base
|
||
|
|
(require br/ragg/examples/wordy
|
||
|
|
br/ragg/support
|
||
|
|
rackunit)
|
||
|
|
|
||
|
|
(check-equal?
|
||
|
|
(syntax->datum
|
||
|
|
(parse (list "hello" "world")))
|
||
|
|
'(sentence (verb (greeting "hello")) (optional-adjective) (object "world")))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(check-equal?
|
||
|
|
(syntax->datum
|
||
|
|
(parse (list "hola" "frumpy" (token 'WORLD "세계"))))
|
||
|
|
|
||
|
|
'(sentence (verb (greeting "hola")) (optional-adjective "frumpy") (object "세계")))
|
||
|
|
|