App-SimpleScan-Plugin-Retry
1 match

 view release on metacpan or  search on metacpan

t/04pragmarun.t  view on Meta::CPAN 


my $simple_scan = `which simple_scan`;
chomp $simple_scan;

my %test_pairs = (
  "retryonrun.in" => <<EOS,
1..2
not ok 1 - branding [http://cpan.org/] [/Python/ should match]
#   Failed test 'branding [http://cpan.org/] [/Python/ should match]'
#   in ... at line XX.
#          got: "<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Trans"...
#       length: ...
#     doesn't match '(?-xism:Python)'
ok 2 - branding [http://perl.org/] [/Perl/ should match]
# Looks like you failed 1 test of 2.
EOS
);

plan tests=>(int keys %test_pairs);

for my $test_input (keys %test_pairs) {



( run in 0.723 second using v1.01-cache-2.11-cpan-49f99fa48dc )