shithub: sl

Info  •  Files  •  Log  •  Branches

tests: string-length

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -491,5 +491,21 @@

   (assert (equal? es (iostream->string b)))

   (io-close b))

+(define s "привет\0пока")

+(assert (eq? 21 (sizeof s)))

+(assert (eq? 21 (length s)))

+(assert (eq? 11 (string-length s)))

+(assert (eq? 11 (string-length s 0)))

+(assert (eq? 10 (string-length s 2)))

+(assert (eq? 9 (string-length s 3)))

+(assert (eq? 0 (string-length s 21)))

+(assert-fail (string-length s -1))

+(assert-fail (string-length s 22))

+(assert (eq? 1 (string-length s 0 2)))

+(assert (eq? 2 (string-length s 0 4)))

+(assert (eq? 0 (string-length s 21 20)))

+(assert (eq? 0 (string-length s 21 21)))

+(assert-fail (string-length s 21 22))

+

 (princ "all tests pass")

 (newline)