From aaf544088fb14a190f5a1b48048c1a1f5003691a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Sun, 24 Feb 2019 18:32:14 +0100 Subject: [PATCH] Add a test for define-template-metafunction --- pkgs/racket-test/tests/stxparse/test-template.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/pkgs/racket-test/tests/stxparse/test-template.rkt b/pkgs/racket-test/tests/stxparse/test-template.rkt index 2361a4dd5f..79d86c4471 100644 --- a/pkgs/racket-test/tests/stxparse/test-template.rkt +++ b/pkgs/racket-test/tests/stxparse/test-template.rkt @@ -104,6 +104,14 @@ (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 (struct my-template-metafunction4 (proc-id) #:property prop:template-metafunction (struct-field-index proc-id)))