From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 31 Oct 2005 13:45:06 +0000 (+0000)
Subject: Tests for index/rindex with empty search string,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46f1e5955033fcc63907c341337e8cc34722edf0;p=p5sagit%2Fp5-mst-13.2.git

Tests for index/rindex with empty search string,
adapted from a patch by Rick Delaney

p4raw-id: //depot/perl@25922
---

diff --git a/t/op/index.t b/t/op/index.t
index d223265..100439d 100755
--- a/t/op/index.t
+++ b/t/op/index.t
@@ -7,7 +7,7 @@ BEGIN {
 
 use strict;
 require './test.pl';
-plan( tests => 46 );
+plan( tests => 58 );
 
 my $foo = 'Now is the time for all good men to come to the aid of their country.';
 
@@ -45,6 +45,20 @@ is(rindex("ababa","a",3), 2);
 is(rindex("ababa","a",4), 4);
 is(rindex("ababa","a",5), 4);
 
+# tests for empty search string
+is(index("abc", "", -1), 0);
+is(index("abc", "", 0), 0);
+is(index("abc", "", 1), 1);
+is(index("abc", "", 2), 2);
+is(index("abc", "", 3), 3);
+is(index("abc", "", 4), 3);
+is(rindex("abc", "", -1), 0);
+is(rindex("abc", "", 0), 0);
+is(rindex("abc", "", 1), 1);
+is(rindex("abc", "", 2), 2);
+is(rindex("abc", "", 3), 3);
+is(rindex("abc", "", 4), 3);
+
 $a = "foo \x{1234}bar";
 
 is(index($a, "\x{1234}"), 4);