17 lines
725 B
Racket
17 lines
725 B
Racket
#lang racket
|
|
(require stxparse-info/parse
|
|
stxparse-info/parse/experimental/template
|
|
rackunit
|
|
"test-compatibility1.rkt")
|
|
|
|
;; TODO: re-enable this, and do the test the other way round too
|
|
;; (the official syntax/parse to from stxparse-info)
|
|
#;(check-equal? (syntax-parse #'(1 (2 3))
|
|
[(x {~optional y} ({~optional z} t))
|
|
(list (syntax->datum
|
|
(original-template (x (?? y no-y) (?? z no-z) t (mf))))
|
|
(syntax->datum
|
|
(template (x (?? y no-y) (?? z no-z) t (mf)))))])
|
|
'((1 no-y 2 3 ok-metafunction-official-1)
|
|
(1 no-y 2 3 ok-metafunction-official-1)))
|