diff options
Diffstat (limited to 'tests/015')
| -rw-r--r-- | tests/015/split.tl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/015/split.tl b/tests/015/split.tl index 15b3f2a7..1cb13647 100644 --- a/tests/015/split.tl +++ b/tests/015/split.tl @@ -298,3 +298,16 @@ (spln 2 "," "a,b,c") ("a" "b" "c") (spln 3 "," "a,b,c") ("a" "b" "c") (spln 4 "," "a,b,c") ("a" "b" "c")) + +(mtest + (cat-str '()) "" + (cat-str '() "-") "" + (cat-str '(()) "-") "" + (cat-str '((()) ()) "-") "" + (cat-str '((()) #()) "-") "" + (cat-str '((("a" ("b")) #(#\c))) "-") "a-b-c") + +(mtest + (join-with "--" '()) "" + (join-with "--" '(("b"))) "b" + (join-with "--" '("b" #(("c") ()) "d")) "b--c--d") |