[perl5.git] / ext / arybase / t / index.t

use warnings; no warnings 'deprecated';
use strict;

use Test::More tests => 12;

our $t = "abcdefghijkl";

$[ = 3;

is index($t, "cdef"), 5;
is index($t, "cdef", 3), 5;
is index($t, "cdef", 4), 5;
is index($t, "cdef", 5), 5;
is index($t, "cdef", 6), 2;
is index($t, "cdef", 7), 2;
is rindex($t, "cdef"), 5;
is rindex($t, "cdef", 7), 5;
is rindex($t, "cdef", 6), 5;
is rindex($t, "cdef", 5), 5;
is rindex($t, "cdef", 4), 2;
is rindex($t, "cdef", 3), 2;

1;
Commit	Line	Data
36b2db7e	1	use warnings; no warnings 'deprecated';
b82b06b8 FC	2	use strict;
	3
	4	use Test::More tests => 12;
	5
	6	our $t = "abcdefghijkl";
	7
	8	$[ = 3;
	9
	10	is index($t, "cdef"), 5;
	11	is index($t, "cdef", 3), 5;
	12	is index($t, "cdef", 4), 5;
	13	is index($t, "cdef", 5), 5;
	14	is index($t, "cdef", 6), 2;
	15	is index($t, "cdef", 7), 2;
	16	is rindex($t, "cdef"), 5;
	17	is rindex($t, "cdef", 7), 5;
	18	is rindex($t, "cdef", 6), 5;
	19	is rindex($t, "cdef", 5), 5;
	20	is rindex($t, "cdef", 4), 2;
	21	is rindex($t, "cdef", 3), 2;
	22
	23	1;