Test.*Differences results from the CPAN

Test.*Differences

App-SimpleScan

view release on metacpan or search on metacpan

                  'Class::Accessor' => 0,
                  'Clone' => '0.20',
                  'Encode' => 0,
                  'Getopt::Long' => 0,
                  'Graph' => '0.65',
                  'IO::ScalarArray' => '2.110',
                  'Regexp::Common' => 0,
                  'Scalar::Util' => 0,
                  'Sub::Installer' => 0,
                  'TAP::Parser' => 0,
                  'Test::Differences' => 0,
                  'Test::More' => 0,
                  'Test::WWW::Simple' => '0.41',
                  'WWW::Mechanize' => '1.16',
                  'WWW::Mechanize::Pluggable' => '0.09',
                },
    add_to_cleanup => [
                        'App-SimpleScan-*',
                      ],
    license => 'unknown',
    create_readme => 1,

META.json view on Meta::CPAN

            "Class::Accessor" : "0",
            "Clone" : "0.20",
            "Encode" : "0",
            "Getopt::Long" : "0",
            "Graph" : "0.65",
            "IO::ScalarArray" : "2.110",
            "Regexp::Common" : "0",
            "Scalar::Util" : "0",
            "Sub::Installer" : "0",
            "TAP::Parser" : "0",
            "Test::Differences" : "0",
            "Test::More" : "0",
            "Test::WWW::Simple" : "0.41",
            "WWW::Mechanize" : "1.16",
            "WWW::Mechanize::Pluggable" : "0.09"
         }
      }
   },
   "provides" : {
      "App::SimpleScan" : {
         "file" : "lib/App/SimpleScan.pm",

META.yml view on Meta::CPAN

  Class::Accessor: '0'
  Clone: '0.20'
  Encode: '0'
  Getopt::Long: '0'
  Graph: '0.65'
  IO::ScalarArray: '2.110'
  Regexp::Common: '0'
  Scalar::Util: '0'
  Sub::Installer: '0'
  TAP::Parser: '0'
  Test::Differences: '0'
  Test::More: '0'
  Test::WWW::Simple: '0.41'
  WWW::Mechanize: '1.16'
  WWW::Mechanize::Pluggable: '0.09'
version: v4.0.1
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL view on Meta::CPAN

                   'Class::Accessor' => 0,
                   'Clone' => '0.20',
                   'Encode' => 0,
                   'Getopt::Long' => 0,
                   'Graph' => '0.65',
                   'IO::ScalarArray' => '2.110',
                   'Regexp::Common' => 0,
                   'Scalar::Util' => 0,
                   'Sub::Installer' => 0,
                   'TAP::Parser' => 0,
                   'Test::Differences' => 0,
                   'Test::More' => 0,
                   'Test::WWW::Simple' => '0.41',
                   'WWW::Mechanize' => '1.16',
                   'WWW::Mechanize::Pluggable' => '0.09'
                 },
  'INSTALLDIRS' => 'site',
  'EXE_FILES' => [
                   'bin/languages',
                   'bin/simple_report',
                   'bin/simple_scan',

lib/App/SimpleScan.pm view on Meta::CPAN

    # Drop the spec (there isn't one active now).
    $self->set_current_spec();
  }
  return;
}

# Calls each plugin's test_modules method
# to stack any other test modules needed to
# properly handle the test code. (Plugins may
# want to generate test code that needs
# something like Test::Differences, etc. -
# this lets them load that module so the
# tests actually work.)
#
# Also adds the test plan.
#
# Finally, initializes the user agent (unless
# we're specifically directed *not* to do so).
sub finalize_tests {
  my ($self) = @_;
  my @tests = @{$self->tests};

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

use Test::More tests=>10;
use Test::Differences;

BEGIN {
  use_ok(qw(App::SimpleScan));
  use_ok(qw(App::SimpleScan::TestSpec));
}

can_ok("App::SimpleScan::TestSpec", qw(uri delim kind regex comment new as_tests app parse metaquote));

my $app = new App::SimpleScan;
App::SimpleScan::TestSpec->app($app);

t/08cache.t view on Meta::CPAN

use Test::More tests=>4;
use Test::Differences;

my $have_cache_plugin;
my $no;

BEGIN {
  unless (eval "require App::SimpleScan::Plugin::Cache; 1") {
    $have_cache_plugin = "";
    $no = "no_cache";
  }
  else {

t/11ss_garbage.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>4;
use Test::Differences;
use IO::ScalarArray;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan --gen <examples/ss_garbage1.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>0;
use Test::WWW::Simple;
use strict;

t/15ss_nodouble.t view on Meta::CPAN

use Test::More tests=>2;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan --gen <examples/ss_multisub.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>4;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');

t/19ss_accent.t view on Meta::CPAN

use Test::More tests=>1;
use Test::Differences;
$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `echo "http://fake.video.fr/q=clips+pour+madonna /Recherche de vidéos <b>pour/ Y French video matches"| $^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen`;
@expected = (map {"$_\n"} (split /\n/,<<EOS));
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');
page_like "http://fake.video.fr/q=clips+pour+madonna",

t/20ss_opts2.t view on Meta::CPAN

use Test::More tests=>6;
use Test::Differences;
$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

my %commands = (
  "$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan --gen <examples/ss_over_defer.in" => <<EOS,
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');
page_like "http://sample.org/bar",

t/24per_test.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>2;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X -It -Iblib/lib bin/simple_scan --gen <examples/ss_country.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>4;
use Test::WWW::Simple;
use strict;

use Test::Demo;

t/25capture.t view on Meta::CPAN

use Test::More tests=>1;
use Test::Differences;
$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `echo "http://fake.video.fr/q=clips+pour+madonna /(Recherche) de vidéos <b>pour/ Y French video matches"| $^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen`;
@expected = (map {"$_\n"} (split /\n/,<<EOS));
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');
page_like "http://fake.video.fr/q=clips+pour+madonna",

t/28planned.t view on Meta::CPAN

use Test::More tests=>2;
use Test::Differences;

my $expected = <<EOS;
UNNAMED_TEST: tests=9, ok=6, failed=2, skipped=1, todo=2 (1 UNEXPECTEDLY SUCCEEDED)
EOS

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

my $got = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_report <t/planned.tap`;
eq_or_diff $got, $expected, "output as planned";

t/29unplanned.t view on Meta::CPAN

use Test::More tests=>2;
use Test::Differences;

my $expected = <<EOS;
UNNAMED_TEST: tests=9, ok=6, failed=2, skipped=1, todo=2 (1 UNEXPECTEDLY SUCCEEDED)
EOS

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

my $got = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_report <t/noplan.tap`;
eq_or_diff $got, $expected, "output as planned";

t/30diags.t view on Meta::CPAN

use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

$expected = <<EOS;
UNNAMED_TEST: tests=9, ok=6, failed=2, skipped=1, todo=2 (1 UNEXPECTEDLY SUCCEEDED)
F 7 Deliberately broken test (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/fnord/ should match]
#   Failed test 'Deliberately broken test (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/fnord/ should match]'
#   in /home/y/lib/perl5/site_perl/5.6.1/Test/WWW/Simple.pm at line 65.
#          got: "<!doctype html public "-//W3C//DTD HTML 4.01//EN" "...
#       length: 37943

t/31snapshot.t view on Meta::CPAN

use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

$expected = <<EOS;
UNNAMED_TEST: tests=9, ok=6, failed=2, skipped=1, todo=2 (1 UNEXPECTEDLY SUCCEEDED)
F 7 Deliberately broken test (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/fnord/ should match]
#   Failed test 'Deliberately broken test (asia) [http://asia.search.yahoo.com/search/news?p=bush&ei=UTF-8&fr=sfp&fl=0&x=wrt&debug=qa] [/fnord/ should match]'
#   in /home/y/lib/perl5/site_perl/5.6.1/Test/WWW/Simple.pm at line 65.
#          got: "<!doctype html public "-//W3C//DTD HTML 4.01//EN" "...
#       length: 37943

t/40inputq.t view on Meta::CPAN

use Test::More tests=>7;
use Test::Differences;

BEGIN {
  use_ok qw(App::SimpleScan);
  use_ok qw(App::SimpleScan::TestSpec);
  push @INC, "t";
}

my $ss = new App::SimpleScan;
ok $ss->can('plugins'), "plugins method available";
isa_ok [$ss->plugins()],"ARRAY", "plugin list";

t/42nested_sub.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;
use lib 't';

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen <examples/ss_nested.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

t/43dynamname.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen <examples/ss_dynamvar.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>3;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');

t/44expression.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen <examples/expression.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');

t/45renegade_percent.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen <examples/renegade-percent.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');

t/46xproduct.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen -define release=beta <examples/cross_product.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
use Test::More tests=>6;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');

t/48subs_base.t view on Meta::CPAN

use Test::More tests=>24;
use Test::Exception;
use Test::Differences;
use App::SimpleScan::Substitution;
use App::SimpleScan::Substitution::Line;

# new() tests
my %hash;
my $substitution;
lives_ok { $substitution = new App::SimpleScan::Substitution; } 'simplest object';

dies_ok { $substitution = new App::SimpleScan::Substitution 'bad' }
  'die on simple scalar';

t/49antique.t view on Meta::CPAN

use Test::More tests=>1;
use Test::Differences;
$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `echo "http://>server</ /not run/ Y Old brackets"| $^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan -gen -define server=zorch`;
@expected = (map {"$_\n"} (split /\n/,<<EOS));
use Test::More tests=>1;
use Test::WWW::Simple;
use strict;

mech->agent_alias('Windows IE 6');
page_like "http://zorch/",

t/51tap_parsing.t view on Meta::CPAN

use strict;
use warnings;

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

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

my $expected = <<EOS;
UNNAMED_TEST: tests=1, ok=1, failed=0, skipped=0, todo=0
EOS

my $got = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_report <t/1successful.tap`;
eq_or_diff $got, $expected, "output as planned, successful test";

xt/12ss_blank.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan<examples/ss_blank.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
1..1
ok 1 - Blank lines were ignored [http://perl.org/] [/perl/ should match]
EOF
eq_or_diff(\@output, \@expected, "working output as expected");

xt/13ss_comment.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan<examples/ss_comment.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
1..1
ok 1 - Perl.org available [http://perl.org/] [/perl/ should match]
EOF
eq_or_diff(\@output, \@expected, "working output as expected");

xt/14ss_agent.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>1;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan<examples/ss_user_agent.in`;
@expected = map {"$_\n"} split /\n/,<<EOF;
1..3
ok 1 - Perl should be there (Windows IE 6) [http://perl.org/] [/perl/ should match]
ok 2 - Perl should be there (Mac Safari) [http://perl.org/] [/perl/ should match]
ok 3 - Perl should be there (Linux Konqueror) [http://perl.org/] [/perl/ should match]
EOF

xt/16ss_fails.t view on Meta::CPAN

#!/usr/local/bin/perl
use Test::More tests=>7;
use Test::Differences;

$ENV{HARNESS_PERL_SWITCHES} = "" unless defined $ENV{HARNESS_PERL_SWITCHES};

@output = `$^X $ENV{HARNESS_PERL_SWITCHES} -Iblib/lib bin/simple_scan<examples/ss_fail.in 2>tmp.out`;
@expected = map {"$_\n"} split /\n/,<<EOF;
1..4
not ok 1 - No python on perl.org [http://perl.org/] [/python/ should match]
not ok 2 - No perl on python.org [http://python.org/] [/perl/ should match]
not ok 3 - Python on python.org [http://python.org/] [/python/ shouldn't match]
not ok 4 - Perl on perl.org [http://perl.org/] [/perl/ shouldn't match]

( run in 1.497 second using v1.01-cache-2.11-cpan-6aa56a78535 )