App-SimpleScan-Plugin-Snapshot

 view release on metacpan or  search on metacpan

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

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

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

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

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

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

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

my %test_pairs = (
  "snapon.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 = (
  "-snap_dir /tmp" => <<EOS,
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

t/04snaprun.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 %counts = (
  'snaponrun.in' => 2,
  'snaperrorrun.in' => 1,
);

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 = (
  "-snap_dir t" => <<EOS,
1..1
ok 1 - branding [http://perl.org/] [/Perl/ should match]

t/06leader.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 %counts = (
  'snaponrun_leader.in' => 2,
  'snaperrorrun_leader.in' => 1,
);

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

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

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

my %test_pairs = (
  "-snap_dir /tmp -snapshot on" => <<EOS,
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;