summaryrefslogtreecommitdiff
path: root/tests/utils.scm
diff options
context:
space:
mode:
authorArun Isaac2021-10-04 16:34:55 +0530
committerArun Isaac2021-10-04 16:34:55 +0530
commitffb909bf27158e10a032dc4df0d0c54bba37889b (patch)
tree880734d0c17fa383b046e008880e9a2b3d207077 /tests/utils.scm
parent2d9df0fc90e96a39ace2446341cf8cbf7be33c29 (diff)
downloadccwl-ffb909bf27158e10a032dc4df0d0c54bba37889b.tar.gz
ccwl-ffb909bf27158e10a032dc4df0d0c54bba37889b.tar.lz
ccwl-ffb909bf27158e10a032dc4df0d0c54bba37889b.zip
ccwl: Error out on invalid keywords to lambda**.
* ccwl/utils.scm (lambda**): Error out on invalid keywords (that is, keywords other than #:key, #:key* and #:allow-other-keys). * tests/utils.scm ("lambda** should error out on unrecognized keywords in arguments"): New test.
Diffstat (limited to 'tests/utils.scm')
-rw-r--r--tests/utils.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm
index 07e02f8..a123719 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -80,6 +80,11 @@
((lambda** (#:key* foo)
foo)))
+(test-error "lambda** should error out on unrecognized keywords in arguments" #t
+ (macroexpand
+ '(lambda** (#:key foo #:foo bar)
+ foo)))
+
(test-assert "syntax-lambda**"
(equal? (list #'1 #'2 #'123 (list #'1 #'2 #'3))
((syntax-lambda** (a b #:key foo #:key* bar)