Small optimisations, by Brandon Black
[p5sagit/p5-mst-13.2.git] / t / op / pos.t
CommitLineData
02c45c47 1#!./perl
2
ee8ba353 3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6 require './test.pl';
7}
8
9plan tests => 6;
02c45c47 10
11$x='banana';
12$x=~/.a/g;
ee8ba353 13is(pos($x), 2);
02c45c47 14
15$x=~/.z/gc;
ee8ba353 16is(pos($x), 2);
02c45c47 17
18sub f { my $p=$_[0]; return $p }
19
20$x=~/.a/g;
ee8ba353 21is(f(pos($x)), 4);
02c45c47 22
084916e3 23# Is pos() set inside //g? (bug id 19990615.008)
24$x = "test string?"; $x =~ s/\w/pos($x)/eg;
ee8ba353 25is($x, "0123 5678910?");
26
e7cbf6c6 27$x = "123 56"; $x =~ / /g;
28is(pos($x), 4);
29{ local $x }
30is(pos($x), 4);