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

Added a few more tests.

Browse Source 
svn: r1105

original commit: 9eb9d4e04089e13d4b6a6d963e7e72f9b56bb301
This commit is contained in:
Eli Barzilay 2005-10-19 14:54:13 +00:00
parent 059d777474
commit 6b657c26ed
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/mzscheme/kw.ss
View File

@ -166,6 +166,9 @@
(t '(3 4) (lambda/kw (#:key a #:body r) r) #:a 1 #:a 2 3 4)
(err/rt-test ((lambda/kw (#:key a #:body r #:forbid-body) r) #:a 1 3))
(t '(#:a 1 #:b 2) (lambda/kw (#:key a #:all-keys r #:allow-body) r) #:a 1 #:b 2 3)
(err/rt-test ((lambda/kw (#:key x y) (list x y)) #:x))
(err/rt-test ((lambda/kw (#:key x y) (list x y)) #:x 1 #:x))
(err/rt-test ((lambda/kw (#:key x y) (list x y)) #:x #:x #:x))
;; optionals and keys
(let ([f (lambda/kw (#:optional a b #:key c d) (list a b c d))])
@ -234,4 +237,11 @@
(st #'(lambda/kw (x #:body (x)) 1))
(st #'(lambda/kw (x #:body x #:allow-other-keys) 1))
(st #'(lambda/kw (x #:optional ()) 1))
(st #'(lambda/kw (x #:optional (x y z)) 1)))
(st #'(lambda/kw (x #:optional (x y z)) 1))
(lambda/kw (x #:other-keys z) 1)
(lambda/kw (x #:rest-keys z) 1)
(lambda/kw (x #:all-keys z) 1)
(lambda/kw (x #:key y #:allow-other-keys z) 1)
(lambda/kw (x #:key y #:forbid-body z) 1)
(lambda/kw (x #:key y #:allow-body #:rest r #:forbid-body) 1)
(lambda/kw (x #:key y #:forbid-other-keys #:rest r #:allow-other-keys) 1))