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

tests for quasiquote repair (merge to 4.2)

Browse Source 
svn: r15004
This commit is contained in:
Matthew Flatt 2009-05-28 13:04:35 +00:00
parent 43a3a326b7
commit 7cc2a8c898
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/mzscheme/syntax.ss
View File

@ -661,6 +661,9 @@
(test '#hash(("foo" . (1 2 3 4 5))) (test '#hash(("foo" . (1 2 3 4 5)))
'qq 'qq
`#hash(("foo" . (1 2 ,(+ 1 2) 4 5)))) `#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))) (test '#hash(("foo" . (1 2 3 4 5)))
'qq 'qq
`#hash(("foo" . (1 2 ,@(list 3 4 5))))) `#hash(("foo" . (1 2 ,@(list 3 4 5)))))
@ -670,6 +673,12 @@
(test '#hash((,(read) . 2)) (test '#hash((,(read) . 2))
'qq 'qq
`#hash((,(read) . 1) (,(read) . 2))) `#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)))) (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?) (error-test #'(read (open-input-string "`#hash((foo ,@(list 1 2 3 4 5)))")) exn:fail:read?)