shithub: sl

Info  •  Files  •  Log  •  Branches

tests: string-split

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -517,5 +517,9 @@

 (assert (eq? 10 (string-width s)))

 (assert (eq? 0 (string-width "")))

+(assert (equal? '("привет" "пока") (string-split s "\0")))

+(assert (equal? '("пр" "вет" "пок" "") (string-split s "аи\0")))

+(assert (equal? '("" "") (string-split "1" "1")))

+

 (princ "all tests pass")

 (newline)