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

just an initial test set for keyword args

Browse Source 
svn: r1061

original commit: 6f4241fe7f0ecee0558cc72be554e260fffb609e
This commit is contained in:
Eli Barzilay 2005-10-13 06:27:16 +00:00
parent 3619f43cb4
commit 6d7fd6a7ba
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/tests/mzscheme/kw-proc.ss Normal file
View File

@ -0,0 +1,28 @@
(load-relative "loadtest.ss")
(SECTION 'kw-proc)
(require (lib "kw-proc.ss"))
;; make sure that lambda/kw behaves as lambda
(test 1 (lambda/kw () 1))
(test 1 (lambda/kw (x) 1) 0)
(test '() (lambda/kw x x))
(test '(1 2) (lambda/kw x x) 1 2)
(test '(1 2) (lambda/kw (x . xs) xs) 0 1 2)
;; even with keywords
(test #:x (lambda/kw () #:x))
(test #:x (lambda/kw (x) #:x) #:y)
(test '(#:x #:y) (lambda/kw x x) #:x #:y)
(test '(#:x #:y) (lambda/kw (x . xs) xs) #:z #:x #:y)
;; just using #:rest is the same as a dot
(let ([f (lambda/kw (#:rest r) r)])
(test '() f)
(test '(1) f 1)
(test '(1 2) f 1 2))
(let ([f (lambda/kw (x #:rest r) r)])
(test '() f 0)
(test '(1) f 0 1)
(test '(1 2) f 0 1 2))