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

add missing syntax-case tests

Browse Source 
svn: r9987
This commit is contained in:
Matthew Flatt 2008-05-27 20:22:08 +00:00
parent 645cd87c81
commit 536ec96549
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/r6rs/syntax-case.ss
View File

@ -301,6 +301,10 @@
(guard (v [#t v]) (guard (v [#t v])
(syntax-violation "apple" "bad" 'worm))) (syntax-violation "apple" "bad" 'worm)))
"apple") "apple")
(test (who-condition?
(guard (v [#t v])
(syntax-violation #f "bad" 'worm)))
#f)
(test (condition-who (test (condition-who
(guard (v [#t v]) (guard (v [#t v])
(syntax-violation #f "bad" #'worm))) (syntax-violation #f "bad" #'worm)))
@ -315,8 +319,8 @@
#f) #f)
(test (syntax-violation-subform (test (syntax-violation-subform
(guard (v [#t v]) (guard (v [#t v])
(syntax-violation 'apple "bad" '(worm) '(another)))) (syntax-violation 'apple "bad" '(worm) '((another)))))
'(another)) '((another)))
;; ;;