From 54d5ce4ecdc414c74afd3cf2b37fbebb82c3cc81 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 20 Jul 2021 16:32:50 +0530
Subject: 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.
---
 tests/utils.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tests')

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)
-- 
cgit v1.2.3