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