diff options
| author | Arun Isaac | 2021-10-04 16:34:55 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-04 16:34:55 +0530 |
| commit | ffb909bf27158e10a032dc4df0d0c54bba37889b (patch) | |
| tree | 880734d0c17fa383b046e008880e9a2b3d207077 /tests/utils.scm | |
| parent | 2d9df0fc90e96a39ace2446341cf8cbf7be33c29 (diff) | |
| download | ccwl-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.scm | 5 |
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) |