diff options
| -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)) |