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

syntax/parse: compress test, add more variants

Browse Source
This commit is contained in:
Ryan Culpepper 2017-02-01 20:03:16 -05:00
parent 68bd27707d
commit febf3f36d7
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
pkgs/racket-test/tests/stxparse/test.rkt
View File

@ -803,30 +803,30 @@
(vector-immutable 1 (s-3d) 3)
(list 'a (s-3d) 'c)]))
(test-case "Regression test for Github issue #1602"
(define-syntax-class stuff
[pattern (2 :three)])
;; a splicing syntax class for just 3
;; from Alex Knauth, issue #1602 (2/2017)
(let ()
(define-splicing-syntax-class three
[pattern 3])
;; like stuff, but with an extra attribute
(define-syntax-class stuff
[pattern (2 :three)])
;; like stuff, but with an extra attribute (adds ORD progress frame)
(define-syntax-class stuff*
[pattern :stuff #:with random-attr 'whocares])
(define wrong* #'wrong)
(terx (1 2 wrong)
(1 . :stuff*)
#rx"expected the literal 3"
#rx"at: wrong"))
(define (exn:expected-literal-3-at-wrong? e)
(match e
[(exn:fail:syntax (regexp #rx".*expected the literal 3.*")
_
(list (== wrong* bound-identifier=?)))
#true]
[_ (println e) #false]))
(check-exn exn:expected-literal-3-at-wrong?
(λ ()
(syntax-parse #`(1 2 #,wrong*)
[(1 . :stuff*)
'body]))))
;; more #1602 tests
(terx (1 2)
(a . (~post (b c)))
#rx"expected more terms starting with any term")
(terx (1 2)
(a . (~and (_ . _) (b c)))
#rx"expected more terms starting with any term")
(terx #(1 2)
#(a b c)
#rx"expected more terms starting with any term")
(terx #s(point 1)
#s(point a b)
#rx"expected more terms starting with any term")