view release on metacpan or  search on metacpan

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

use Test::More tests=>1;
use Test::Differences;
my $input;
my $expected = <<EOS;
use Test::More tests=>6;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');
page_like "http://sample.org/bar",
          qr/freen/,
          qq(Should substitute both [http://sample.org/bar] [/freen/ should match]);
page_like "http://sample.org/bar",
          qr/glonk/,
          qq(Should substitute both [http://sample.org/bar] [/glonk/ should match]);
page_like "http://sample.org/baz",
          qr/freen/,
          qq(Should substitute both [http://sample.org/baz] [/freen/ should match]);
page_like "http://sample.org/baz",
          qr/glonk/,
          qq(Should substitute both [http://sample.org/baz] [/glonk/ should match]);
page_like "http://sample.org/<foo>",
          qr/freen/,
          qq(zorch but not foo [http://sample.org/<foo>] [/freen/ should match]);
page_like "http://sample.org/<foo>",
          qr/glonk/,
          qq(zorch but not foo [http://sample.org/<foo>] [/glonk/ should match]);

EOS
my @expected = map {"$_\n"} (split /\n/, $expected);
push @expected, "\n";

eval "use App::SimpleScan::Plugin::Vars";
if ($@) {
  # No "vars" support installed
  $input = "examples/forget2.in";
}
else {
  # No "vars" support installed
  $input = "examples/forget1.in";
}

$ENV{PERL5LIB} = "blib/lib";
@output = `simple_scan --gen <$input`;

eq_or_diff \@output, \@expected, "expected output";