diff options
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/seq.tl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 95754c67..4b84787d 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -645,3 +645,23 @@ (flatcar* '(() b . c)) (nil b c) (flatcar* '((()) b . c)) (nil b c) (flatcar* '(((a)) b . c)) (a b c)) + +(mtest + (length-< nil 0) nil + (length-< nil 1) t + (length-< '(a) 1) nil + (length-< '(a) 2) t + (length-< '(a . b) 1) nil + (length-< '(a . b) 2) t) + +(mtest + (length-< "" 0) nil + (length-< "" 1) t + (length-< "a" 1) nil + (length-< "a" 2) t) + +(mtest + (length-< #() 0) nil + (length-< #() 1) t + (length-< #(a) 1) nil + (length-< #(a) 2) t) |