shithub: sl

Info  •  Files  •  Log  •  Branches

str-find: unit test previous crash fix

--- a/test/unittest.sl

+++ b/test/unittest.sl

@@ -617,6 +617,9 @@

 (assert-fail (str-find s 0))

 (assert-fail (str-find s (byte #\o)))

+(assert (not (str-find "" "1")))

+(assert (not (str-find "1" "11")))

+

 (assert (equal? "1.5" (num->str 1.5)))

 (assert (equal? "-3039" (num->str (s16 -12345) 16)))

 (assert (equal? "111111111111111111111111111111111" (num->str   111111111111111111111111111111111)))