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

Fixes keyword tests

Browse Source
This commit is contained in:
Casey Klein 2011-07-16 12:38:10 -05:00
parent 3f0914080b
commit 6ff5dc779b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/redex/tests/keyword-macros-test.rkt
View File

@ -22,23 +22,23 @@
(test (parse #'(a #:c 3 #:b 4)) '(4 3))
(test (parse #'(a #:b 4 #:c 3)) '(4 3))
(test (parse #'(a #:c 3)) '(1 3))
(let*-values ([(kw) #'#:b]
(let*-values ([(kw) (syntax-taint #'#:b)]
[(msg src) (msg-src (parse #`(a #,kw)))])
(test msg #rx"a: missing argument expression after keyword")
(test src (list kw)))
(let*-values ([(arg) #'1]
(let*-values ([(arg) (syntax-taint #'1)]
[(msg src) (msg-src (parse #`(a #:b 1 #,arg)))])
(test msg #rx"a: expected a keyword")
(test src (list arg)))
(let*-values ([(kw) #'#:c]
(let*-values ([(kw) (syntax-taint #'#:c)]
[(msg src) (msg-src (parse #`(a #:c 1 #:b 2 #,kw 3)))])
(test msg #rx"a: repeated keyword")
(test src (list kw)))
(let*-values ([(kw) #'#:c]
(let*-values ([(kw) (syntax-taint #'#:c)]
[(msg src) (msg-src (parse #`(a #:b #,kw 3)))])
(test msg #rx"a: expected an argument expression")
(test src (list kw)))
(let*-values ([(kw) #'#:typo]
(let*-values ([(kw) (syntax-taint #'#:typo)]
[(msg src) (msg-src (parse #`(a #:b 3 #,kw 4)))])
(test msg #rx"a: invalid keyword")
(test src (list kw))))))