From d019c0515075abb0b02885b949f0a57f6a96bc03 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 15 May 2016 07:37:49 +0900 Subject: [PATCH] adding a 3-arg string-contains test --- lib/srfi/130/test.sld | 2 ++ 1 file changed, 2 insertions(+) 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"