diff options
| author | Arun Isaac | 2022-01-16 12:22:46 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-16 12:25:17 +0530 |
| commit | fa583a919f270bb1ddf0c9102fa633b10d3dff10 (patch) | |
| tree | 6a53d4fb9f2b3483c2b72cd735aacc86c1c326e5 /tests | |
| parent | 8a4da0fbae43592f6afd739ecab9a885bde2ba1b (diff) | |
| download | ccwl-fa583a919f270bb1ddf0c9102fa633b10d3dff10.tar.gz ccwl-fa583a919f270bb1ddf0c9102fa633b10d3dff10.tar.lz ccwl-fa583a919f270bb1ddf0c9102fa633b10d3dff10.zip | |
ccwl: Document default default value of syntax-lambda**.
* ccwl/utils.scm (syntax-lambda**): Document default default value.
* tests/utils.scm ("default default value of syntax-lambda** unary
argument should be #f", "default default value of syntax-lambda**
n-ary argument should be the empty list"): New tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/utils.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index 6b14f29..3970a5c 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -132,6 +132,16 @@ (list foo aal vale pal naal irandu sol)) #'1 #'2 #'#:vale #'123 #'#:naal #'321 #'456))) +(test-equal "default default value of syntax-lambda** unary argument should be #f" + #f + ((syntax-lambda** (#:key foo) + foo))) + +(test-equal "default default value of syntax-lambda** n-ary argument should be the empty list" + '() + ((syntax-lambda** (#:key* foo) + foo))) + ;; We cannot use test-equal to compare syntax objects, since ;; test-equal does not preserve the lexical contexts of the test ;; expressions. |