App-SimpleScan-Plugin-Retry

 view release on metacpan or  search on metacpan

t/01pragma.t  view on Meta::CPAN

use Test::More;
use Test::Differences;

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

my %test_pairs = (
  "%%retry 0" => <<EOS,
use Test::More tests=>0;
use Test::WWW::Simple;
use strict;

t/02multi.t  view on Meta::CPAN

use Test::More;
use Test::Differences;

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

my %test_pairs = (
  "multi.in" => <<EOS,
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

t/03cmdline.t  view on Meta::CPAN

use Test::More;
use Test::Differences;

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

my %test_pairs = (
  "-retry 0" => <<EOS,
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

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

use Test::More;
use Test::Differences;

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.

t/05cmdrun.t  view on Meta::CPAN

use Test::More;
use Test::Differences;

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

system "rm -rf t/run_*" unless $ENV{DEBUG};

my %test_pairs = (
  "-retry 0" => <<EOS,
1..1
ok 1 - branding [http://perl.org/] [/Perl/ should match]