shithub: sl

Info  •  Files  •  Log  •  Branches

unit tests: char-title-case?, char-titlecase, string-find

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -602,6 +602,28 @@

 (assert (not (char-alphabetic? #\⁰)))

 (assert (not (char-alphabetic? #\0)))

+(assert (not (char-title-case? #\DŽ)))

+(assert (equal? #\Dž (char-titlecase #\DŽ)))

+(assert (char-title-case? #\Dž))

+

+(define s "hello й goodbye")

+(assert (= 6 (string-find s #\й)))

+(assert (= 6 (string-find s #\й 6)))

+(assert-fail (string-find s #\o -1))

+(assert (not (string-find s #\o 16)))

+(assert-fail (string-find s #\o 17))

+(assert (= 4 (string-find s #\o)))

+(assert (= 10 (string-find s #\o 5)))

+(assert (= 11 (string-find s #\o 11)))

+(assert (not (string-find s #\o 12)))

+(assert (= 4 (string-find s (byte #\o))))

+(assert (= 4 (string-find s "o")))

+(assert (= 2 (string-find s "ll")))

+(assert (not (string-find s "ll" 3)))

+(assert (= 0 (string-find s "")))

+(assert (= 7 (string-find s "" 7)))

+(assert-fail (string-find s 0))

+

 (assert (equal? "1.5" (number->string 1.5)))

 (assert (equal? "-3039" (number->string (int16 -12345) 16)))

 (assert (equal? "111111111111111111111111111111111" (number->string   111111111111111111111111111111111)))