diff options
| author | Arun Isaac | 2021-07-20 16:32:50 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-07-20 16:32:50 +0530 |
| commit | 54d5ce4ecdc414c74afd3cf2b37fbebb82c3cc81 (patch) | |
| tree | b7623e765390c5a9b7f3a365985ae58c30885c7c /tests | |
| parent | 308bc011949752f0b452dac5081814674d73f62a (diff) | |
| download | ccwl-54d5ce4ecdc414c74afd3cf2b37fbebb82c3cc81.tar.gz ccwl-54d5ce4ecdc414c74afd3cf2b37fbebb82c3cc81.tar.lz ccwl-54d5ce4ecdc414c74afd3cf2b37fbebb82c3cc81.zip | |
ccwl: Document syntax-lambda** support for default arguments.
* ccwl/utils.scm (syntax-lambda**): Add example to docstring
documenting support for default arguments.
* tests/utils.scm ("syntax-lambda** with default values"): New test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utils.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 473bd45..5c5bfd1 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -76,6 +76,12 @@ (list a b foo bar)) #'(foo 1 2 #:foo 123 #:bar 1 2 3)))) +(test-assert "syntax-lambda** with default values" + (equal? (list #'1 #'2 #'123 9 #'(321 456) '(7) '(3 2 1)) + ((syntax-lambda** (foo aal #:key vale (pal 9) #:key* naal (irandu 7) (sol 3 2 1)) + (list foo aal vale pal naal irandu sol)) + #'(bar 1 2 #:vale 123 #:naal 321 456)))) + (test-equal "filter-mapi" '(1 3 5 7 9) (filter-mapi (lambda (item index) |