diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-18 06:45:09 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-18 06:45:09 -0800 |
| commit | d408a446a709f14755e1e6b08b06d6482c8fb2a9 (patch) | |
| tree | 6c44d4d210617eae63fd40c17f8dd345db894552 | |
| parent | 8b6e44ecfb666b5966aad7bdbe48bcfdd223c306 (diff) | |
| download | txr-d408a446a709f14755e1e6b08b06d6482c8fb2a9.tar.gz txr-d408a446a709f14755e1e6b08b06d6482c8fb2a9.tar.bz2 txr-d408a446a709f14755e1e6b08b06d6482c8fb2a9.zip | |
mapcar: add test covering recent regression.
* test/012/seq.tl: New test with multiple lambda
arguments and variadic function.
| -rw-r--r-- | tests/012/seq.tl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 9c3821d1..1bb4ddcc 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -17,3 +17,6 @@ (stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)") (stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)") + +(test (mapcar (lambda (. args) (list . args)) '#(1 2 3) '#(4 5 6)) + #((1 4) (2 5) (3 6))) |