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.
21 lines
765 B
Racket
21 lines
765 B
Racket
7 years ago
|
#lang racket/base
|
||
3 years ago
|
(require yaragg/examples/empty-symbol
|
||
|
|
yaragg/support
|
||
|
7 years ago
|
rackunit)
|
||
|
|
|
||
|
|
(check-true (and (member (parse-to-datum "") (list '(top (xs)) '(top (ys)) '(top (zs)))) #t))
|
||
|
|
|
||
|
|
;; x is normal
|
||
|
|
(check-equal? (parse-to-datum "x") '(top (xs "x" (xs))))
|
||
|
|
(check-equal? (parse-to-datum "xx") '(top (xs "x" (xs "x" (xs)))))
|
||
|
|
(check-equal? (parse-to-datum "xxx") '(top (xs "x" (xs "x" (xs "x" (xs))))))
|
||
|
|
|
||
|
|
;; y cuts
|
||
|
|
(check-equal? (parse-to-datum "y") '(top (ys "y")))
|
||
|
|
(check-equal? (parse-to-datum "yy") '(top (ys "y")))
|
||
|
|
(check-equal? (parse-to-datum "yyy") '(top (ys "y")))
|
||
|
|
|
||
|
|
;; z splices
|
||
|
|
(check-equal? (parse-to-datum "z") '(top (zs "z")))
|
||
|
|
(check-equal? (parse-to-datum "zz") '(top (zs "z" "z")))
|
||
|
|
(check-equal? (parse-to-datum "zzz") '(top (zs "z" "z" "z")))
|