diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/seq.tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 262c7739..c3000b5e 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -883,3 +883,14 @@ (mtest (ref 1..6 0.0) (1.0 2.0 3.0 4.0 5.0)) + +(mtest + (interpose 1 '()) () + (interpose 1 '(a)) (a) + (interpose 1 '(a b)) (a 1 b) + (interpose 1 '(a b c)) (a 1 b 1 c)) + +(mtest + (interpose 1 "") "" + (interpose 1 "a") "a" + (interpose 1 "ab") (#\a 1 #\b)) |