[perl5.git] / t / op / pos.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

plan tests => 6;

$x='banana';
$x=~/.a/g;
is(pos($x), 2);

$x=~/.z/gc;
is(pos($x), 2);

sub f { my $p=$_[0]; return $p }

$x=~/.a/g;
is(f(pos($x)), 4);

# Is pos() set inside //g? (bug id 19990615.008)
$x = "test string?"; $x =~ s/\w/pos($x)/eg;
is($x, "0123 5678910?");

TODO: {
    $x = "123 56"; $x =~ / /g;
    is(pos($x), 4);
    { local $x }
    local $TODO = "RT #1716: search position reset after 'local' save/restore";
    is(pos($x), 4);
}
Commit	Line	Data
02c45c47 GS	1	#!./perl
02c45c47 GS	2
ee8ba353 SP	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
	9	plan tests => 6;
02c45c47 GS	10
	11	$x='banana';
	12	$x=~/.a/g;
ee8ba353	13	is(pos($x), 2);
02c45c47 GS	14
02c45c47 GS	15	$x=~/.z/gc;
ee8ba353	16	is(pos($x), 2);
02c45c47 GS	17
	18	sub f { my $p=$_[0]; return $p }
	19
	20	$x=~/.a/g;
ee8ba353	21	is(f(pos($x)), 4);
02c45c47	22
084916e3 JH	23	# Is pos() set inside //g? (bug id 19990615.008)
084916e3 JH	24	$x = "test string?"; $x =~ s/\w/pos($x)/eg;
ee8ba353 SP	25	is($x, "0123 5678910?");
	26
	27	TODO: {
	28	$x = "123 56"; $x =~ / /g;
	29	is(pos($x), 4);
	30	{ local $x }
	31	local $TODO = "RT #1716: search position reset after 'local' save/restore";
	32	is(pos($x), 4);
	33	}