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

fixed template tests

Browse Source
This commit is contained in:
Ryan Culpepper 2012-10-09 18:32:11 -04:00
parent 44974c54f8
commit 07da9c0c3c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/stxparse/test-template.rkt
View File

@ -179,7 +179,7 @@
;; Error tests ;; Error tests
(terx (template (1 ...)) (terx (template (1 ...))
#rx"no pattern variables in term before ellipsis") #rx"no pattern variables before ellipsis in template")
(terx (template (uu ...)) (terx (template (uu ...))
#rx"too many ellipses in template") #rx"too many ellipses in template")
@ -188,7 +188,7 @@
#rx"too many ellipses in template") #rx"too many ellipses in template")
(terx (template aa) (terx (template aa)
#rx"pattern variable used at wrong ellipsis depth") #rx"missing ellipses with pattern variable in template")
(terx (template (?@)) (terx (template (?@))
#rx"illegal use") #rx"illegal use")
@ -199,7 +199,7 @@
(define-template-metafunction (bad-mf stx) 123) (define-template-metafunction (bad-mf stx) 123)
(terx (template (bad-mf)) (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) ...))) (terx (with-syntax ([(bb ...) #'(y z)]) (template ((aa bb) ...)))
#rx"incompatible ellipsis match counts") #rx"incompatible ellipsis match counts")