test-compatibility2.rkt (725B)
1 #lang racket 2 (require stxparse-info/parse 3 stxparse-info/parse/experimental/template 4 rackunit 5 "test-compatibility1.rkt") 6 7 ;; TODO: re-enable this, and do the test the other way round too 8 ;; (the official syntax/parse to from stxparse-info) 9 #;(check-equal? (syntax-parse #'(1 (2 3)) 10 [(x {~optional y} ({~optional z} t)) 11 (list (syntax->datum 12 (original-template (x (?? y no-y) (?? z no-z) t (mf)))) 13 (syntax->datum 14 (template (x (?? y no-y) (?? z no-z) t (mf)))))]) 15 '((1 no-y 2 3 ok-metafunction-official-1) 16 (1 no-y 2 3 ok-metafunction-official-1)))