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

syntax/parse: test different post groups are incomparable

Browse Source
This commit is contained in:
Ryan Culpepper 2016-04-22 10:59:40 -04:00
parent 25c9e9347a
commit f7fff58de6
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/racket-test/tests/stxparse/select.rkt
View File

@ -281,3 +281,17 @@
#:fail-when (and (< (syntax->datum #'z) 10) #'z) #:fail-when (and (< (syntax->datum #'z) 10) #'z)
"unhappy about last number" "unhappy about last number"
'ok])))) 'ok]))))
(test-case "side-clauses in different stxclasses don't compare"
(check-exn #rx"message1 or message2"
(lambda ()
(syntax-parse #'(1 2 3 4)
[(x:nat ...)
#:with (y ... z) #'(x ...)
#:fail-unless #f "message1" ;; (post 'g1 2)
'ok]
[(x:nat ...)
#:with (y ... z) #'(x ...)
#:with w #'whatever
#:fail-unless #f "message2" ;; (post 'g2 3), incomp w/ above
'ok]))))