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.
18 lines
634 B
Racket
18 lines
634 B
Racket
3 years ago
|
#lang racket/base
|
||
|
|
(require rackunit
|
||
|
3 years ago
|
yaragg/support
|
||
|
|
yaragg/examples/subrule)
|
||
|
3 years ago
|
|
||
|
|
(define parse-next (make-rule-parser next))
|
||
|
|
(define parse-start (make-rule-parser start))
|
||
|
|
|
||
|
|
(check-equal? (syntax->datum (parse #f "0")) '(start (next "0")))
|
||
|
|
(check-equal? (syntax->datum (parse #f "0")) (syntax->datum (parse "0")))
|
||
|
|
|
||
|
|
(check-equal? (syntax->datum (parse-start #f "0")) '(start (next "0")))
|
||
|
|
(check-equal? (syntax->datum (parse-start #f "0")) (syntax->datum (parse-start "0")))
|
||
|
|
|
||
|
|
(check-equal? (syntax->datum (parse-next #f "0")) '(next "0"))
|
||
|
|
(check-equal? (syntax->datum (parse-next #f "0")) (syntax->datum (parse-next "0")))
|
||
|
|
|