From 7cc2a8c898e838412fa02b34aaf18cdb2921e5f2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 28 May 2009 13:04:35 +0000 Subject: [PATCH] tests for quasiquote repair (merge to 4.2) svn: r15004 --- collects/tests/mzscheme/syntax.ss | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/collects/tests/mzscheme/syntax.ss b/collects/tests/mzscheme/syntax.ss index c9f7b6a1ad..6a2d0128db 100644 --- a/collects/tests/mzscheme/syntax.ss +++ b/collects/tests/mzscheme/syntax.ss @@ -661,6 +661,9 @@ (test '#hash(("foo" . (1 2 3 4 5))) 'qq `#hash(("foo" . (1 2 ,(+ 1 2) 4 5)))) +(test '#hash(("foo" . (1 2 (+ 1 2) 4 5))) + 'qq + `#hash(("foo" . (1 2 (+ 1 2) 4 5)))) (test '#hash(("foo" . (1 2 3 4 5))) 'qq `#hash(("foo" . (1 2 ,@(list 3 4 5))))) @@ -670,6 +673,12 @@ (test '#hash((,(read) . 2)) 'qq `#hash((,(read) . 1) (,(read) . 2))) +(test '#hash(("moo" . 3) ("foo" . (1 2))) + 'qq + `#hash(("moo" . ,(+ 1 2)) ("foo" . (1 2)))) +(test '#hash(("moo" . (+ 1 2)) ("foo" . -1)) + 'qq + `#hash(("moo" . (+ 1 2)) ("foo" . ,(- 1 2)))) (syntax-test #'`#hash(("foo" . ,@(list 1 2 3 4 5)))) (error-test #'(read (open-input-string "`#hash((foo ,@(list 1 2 3 4 5)))")) exn:fail:read?)