Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 11:46:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding tests for syntax patterns with ellipsis in middle of lists.

Browse source
This commit is contained in:
Alex Shinn 2014-09-05 23:02:49 +09:00
parent 955190d4da
commit 1d252ae893
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tests/r7rs-tests.scm
View file

@ -439,6 +439,26 @@
(be-like-begin3 sequence3) (be-like-begin3 sequence3)
(test 5 (sequence3 2 3 4 5)) (test 5 (sequence3 2 3 4 5))
;; Syntax pattern with ellipsis in middle of proper list.
(define-syntax part-2
(syntax-rules ()
((_ a b (m n) ... x y)
(vector (list a b) (list m ...) (list n ...) (list x y)))
((_ . rest) 'error)))
(test '#((10 43) (31 41 51) (32 42 52) (63 77))
(part-2 10 (+ 21 22) (31 32) (41 42) (51 52) (+ 61 2) 77))
;; Syntax pattern with ellipsis in middle of improper list.
(define-syntax part-2x
(syntax-rules ()
((_ a b (m n) ... x y . rest)
(vector (list a b) (list m ...) (list n ...) (list x y)
(cons "rest:" 'rest)))
((_ . rest) 'error)))
(test '#((10 43) (31 41 51) (32 42 52) (63 77) ("rest:"))
(part-2x 10 (+ 21 22) (31 32) (41 42) (51 52) (+ 61 2) 77))
(test '#((10 43) (31 41 51) (32 42 52) (63 77) ("rest:" . "tail"))
(part-2x 10 (+ 21 22) (31 32) (41 42) (51 52) (+ 61 2) 77 . "tail"))
;; underscore ;; underscore
(define-syntax count-to-2 (define-syntax count-to-2
(syntax-rules () (syntax-rules ()