suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a test for define-template-metafunction

Browse Source
This commit is contained in:
Georges Dupéron 2019-02-24 18:32:14 +01:00
parent 90ac2459f1
commit aaf544088f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-test/tests/stxparse/test-template.rkt
View File

@ -104,6 +104,14 @@
(check-true (is-metafunction? mf3))) (check-true (is-metafunction? mf3)))
(test-case "use define-template-metafunction"
(define-template-metafunction (mf-def-for-use stx)
(syntax-case stx ()
[(_ n) #`#,(/ (syntax-e #'n) 2)]))
(check-equal? (syntax->datum (template (x (mf-def-for-use 6) z)))
'(x 3 z)))
(begin-for-syntax (begin-for-syntax
(struct my-template-metafunction4 (proc-id) (struct my-template-metafunction4 (proc-id)
#:property prop:template-metafunction (struct-field-index proc-id))) #:property prop:template-metafunction (struct-field-index proc-id)))