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.
9 lines
324 B
Racket
9 lines
324 B
Racket
#lang racket/base
|
|
(require brag/examples/subparser
|
|
brag/support
|
|
rackunit)
|
|
|
|
(check-equal? (parse-top-to-datum "x") (parse-to-datum "x"))
|
|
(check-equal? (parse-top-to-datum "x") '(top (foo (bar "x"))))
|
|
(check-equal? (parse-foo-to-datum "x") '(foo (bar "x")))
|
|
(check-equal? (parse-bar-to-datum "x") '(bar "x")) |