diff --git a/lib/srfi/130/test.sld b/lib/srfi/130/test.sld index f423faba..fbb507e6 100644 --- a/lib/srfi/130/test.sld +++ b/lib/srfi/130/test.sld @@ -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"