diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-10-01 12:00:26 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-10-01 12:00:26 -0700 |
| commit | 3a1c5f7c917ea9eadac7fe5dfd8d9ba2d1405a3c (patch) | |
| tree | f5d636be21b2f12e27fe5022450bdf8cd018c6e4 | |
| parent | 4a4c01a1753a502268a0611fdff3aaa054791670 (diff) | |
| download | txr-3a1c5f7c917ea9eadac7fe5dfd8d9ba2d1405a3c.tar.gz txr-3a1c5f7c917ea9eadac7fe5dfd8d9ba2d1405a3c.tar.bz2 txr-3a1c5f7c917ea9eadac7fe5dfd8d9ba2d1405a3c.zip | |
tests for flatcar and flatcar*.
* tests/012/seq.tl: New tests.
| -rw-r--r-- | tests/012/seq.tl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 9aa61148..95754c67 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -621,3 +621,27 @@ (lforce (flatten* '(1 . 2))) :error (lforce (flatten* '(1 2 . 3))) :error (lforce (flatten* '(1 (2 . 3)))) :error) + +(mtest + (flatcar ()) (nil) + (flatcar 'a) (a) + (flatcar '(a . b)) (a b) + (flatcar '(nil . nil)) (nil) + (flatcar '(nil . b)) (nil b) + (flatcar '(b . nil)) (b) + (flatcar '(a b . c)) (a b c) + (flatcar '(() b . c)) (nil b c) + (flatcar '((()) b . c)) (nil b c) + (flatcar '(((a)) b . c)) (a b c)) + +(mtest + (flatcar* ()) (nil) + (flatcar* 'a) (a) + (flatcar* '(a . b)) (a b) + (flatcar* '(nil . nil)) (nil) + (flatcar* '(nil . b)) (nil b) + (flatcar* '(b . nil)) (b) + (flatcar* '(a b . c)) (a b c) + (flatcar* '(() b . c)) (nil b c) + (flatcar* '((()) b . c)) (nil b c) + (flatcar* '(((a)) b . c)) (a b c)) |