From 3489cca5c4ea4fe486b3119df23c4199e6e74bda Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 8 Jun 2006 10:52:26 +0000
Subject: [PATCH] tests for nested multi-ellipsis sequence

svn: r3278
---
 collects/tests/mzscheme/stx.ss | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.ss
index 106f0ac8c7..8225337d1e 100644
--- a/collects/tests/mzscheme/stx.ss
+++ b/collects/tests/mzscheme/stx.ss
@@ -94,6 +94,16 @@
       (syntax-object->datum 
        (syntax-case '((1) (2 3)) () [((a ...) ...) #'(#(a ...) ...)])))
 
+(test '(1 2 3 6 8 9 0 1 2 3)
+      syntax-object->datum 
+      (syntax-case '(((1) (2 3)) ((6)) ((8 9 0) (1 2 3))) () [(((a ...) ...) ...) #'(a ... ... ...)]))
+(test '((1 2 3) (6) (8 9 0 1 2 3))
+      syntax-object->datum 
+      (syntax-case '(((1) (2 3)) ((6)) ((8 9 0) (1 2 3))) () [(((a ...) ...) ...) #'((a ... ...) ...)]))
+(test '((1) (2 3) (6) (8 9 0) (1 2 3))
+      syntax-object->datum 
+      (syntax-case '(((1) (2 3)) ((6)) ((8 9 0) (1 2 3))) () [(((a ...) ...) ...) #'((a ...) ... ...)]))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Test basic expansion and property propagation
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;