view release on metacpan or  search on metacpan

t/00-App-Relate-simple_checks_of_relate_proceedure.t  view on Meta::CPAN

  my $test_name =
    "Testing relate with a regexp search term.";
  my $data = load_data_aref();
   my $results =
      relate( [ 'apache', 'apache2\b' ], [],
        { test_data => $data,
          } );

  my $expected = [
     '/usr/src/apache2/httpd.spec',
     '/usr/src/apache2/docs/manual/bind.html',
     '/usr/sbin/apache2',
  ];

  my $results_sorted  = [ sort( @{ $results } ) ];
  my $expected_sorted = [ sort( @{ $expected } ) ];

  is_deeply( $results_sorted, $expected_sorted, $test_name );
}

{
  my $test_name =
    "Testing relate with a dwim upcaret search term.";
  my $data = load_data_aref();
   my $results =
      relate( [ 'apache', '^bin' ], [],
        { test_data => $data,
          } );

  my $expected = [
     '/usr/src/apache2/docs/manual/bind.html',
  ];

  my $results_sorted  = [ sort( @{ $results } ) ];
  my $expected_sorted = [ sort( @{ $expected } ) ];

  is_deeply( $results_sorted, $expected_sorted, $test_name );
}



# end main, into the subs

sub load_data_aref {

  my $data =
    [
     '/usr/src/apache2/httpd.spec',
     '/usr/src/apache2/docs/manual/bind.html',
     '/usr/sbin/apache2',
     '/usr/sbin/apache2ctl',
     '/var/www/html/index.html',
     '/var/www/html/usage/index.html',
     '/usr/share/texmf-texlive/tex/latex/authorindex',
    ];

  return $data;
}