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.
20 lines
672 B
Racket
20 lines
672 B
Racket
#lang racket/base
|
|
|
|
(module+ test
|
|
|
|
(require rackunit
|
|
yaragg/support
|
|
yaragg/examples/subrule)
|
|
|
|
(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"))))
|