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 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 }