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 | 262df61dea7cdb66b5dd50ef38f8e4ba672a596e (patch) | |
| tree | 6c44d4d210617eae63fd40c17f8dd345db894552 | |
| parent | a6a692caa3421b00aa0154854134edd472ce5354 (diff) | |
| download | txr-262df61dea7cdb66b5dd50ef38f8e4ba672a596e.tar.gz txr-262df61dea7cdb66b5dd50ef38f8e4ba672a596e.tar.bz2 txr-262df61dea7cdb66b5dd50ef38f8e4ba672a596e.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))) |