From 07da9c0c3c521f55bef45efdc1a4d8619d31c194 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 9 Oct 2012 18:32:11 -0400 Subject: [PATCH] fixed template tests --- collects/tests/stxparse/test-template.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/stxparse/test-template.rkt b/collects/tests/stxparse/test-template.rkt index 16a50b6017..c6a4dee3ca 100644 --- a/collects/tests/stxparse/test-template.rkt +++ b/collects/tests/stxparse/test-template.rkt @@ -179,7 +179,7 @@ ;; Error tests (terx (template (1 ...)) - #rx"no pattern variables in term before ellipsis") + #rx"no pattern variables before ellipsis in template") (terx (template (uu ...)) #rx"too many ellipses in template") @@ -188,7 +188,7 @@ #rx"too many ellipses in template") (terx (template aa) - #rx"pattern variable used at wrong ellipsis depth") + #rx"missing ellipses with pattern variable in template") (terx (template (?@)) #rx"illegal use") @@ -199,7 +199,7 @@ (define-template-metafunction (bad-mf stx) 123) (terx (template (bad-mf)) - #rx"result of metafunction was not syntax") + #rx"result of template metafunction was not syntax") (terx (with-syntax ([(bb ...) #'(y z)]) (template ((aa bb) ...))) #rx"incompatible ellipsis match counts")