view release on metacpan or  search on metacpan

t/03-lr.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 3;
use Data::Dumper;

BEGIN {
	use_ok( 'Acme::Grep2D' );
}

diag( "Testing Acme::Grep2D $Acme::Grep2D::VERSION, Perl $], $^X" );
my $text = <<'EOF';
  f
   o       f
    o       o
     b   r   o
      a   a   b
       r   b   a
            o   r
             o
              f



EOF

my $g2d = Acme::Grep2D->new(text => $text);
my @m = $g2d->Grep('foobar');
print STDERR $text;
#print STDERR Dumper(\@m);
my $found = 0;
my $correct = 0;
map {
    $correct++ if $_->[0] == 6;
} @m;
ok($correct == 3);

map {
   my ($length, $x, $y, $dx, $dy) = @$_;
   $found++ if $x==2 && $y==0 && $dx==1 && $dy==1;
   $found++ if $x==11 && $y==1 && $dx==1 && $dy==1;
   $found++ if $x==14 && $y==8 && $dx==-1 && $dy==-1;
} @m;
ok($found == 3);