adding a 3-arg string-contains test

This commit is contained in:
Alex Shinn 2016-05-15 07:37:49 +09:00
parent c005459335
commit d019c05150

View file

@ -154,6 +154,8 @@
(string-contains s "mer"))
(test "string-contains" #f
(string-contains s "Mer"))
(test-assert "string-contains"
(string-contains s "mer" 1))
(test-assert "string-contains"
(string-contains s "mer" 1 8))
(test-not "string-contains"