Test::Fatal results from the CPAN

Test::Fatal

App-Prove-Plugin-Elasticsearch

view release on metacpan or search on metacpan

      },
      "test" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0",
            "File::Spec" : "0",
            "FindBin" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Test::Class" : "0",
            "Test::Deep" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0",
            "blib" : "1.01",
            "perl" : "5.006"
         }
      }
   },
   "provides" : {
      "App::Prove::Elasticsearch::Blamer::Default" : {
         "file" : "lib/App/Prove/Elasticsearch/Blamer/Default.pm",
         "version" : "0.001"

META.yml view on Meta::CPAN

author:
  - 'George S. Baugh <teodesian@cpan.org>'
build_requires:
  ExtUtils::MakeMaker: '0'
  File::Spec: '0'
  FindBin: '0'
  IO::Handle: '0'
  IPC::Open3: '0'
  Test::Class: '0'
  Test::Deep: '0'
  Test::Fatal: '0'
  Test::More: '0'
  blib: '1.01'
  perl: '5.006'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.006, CPAN::Meta::Converter version 2.150001'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL view on Meta::CPAN

    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0,
    "File::Spec" => 0,
    "FindBin" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::Class" => 0,
    "Test::Deep" => 0,
    "Test::Fatal" => 0,
    "Test::More" => 0,
    "blib" => "1.01"
  },
  "VERSION" => "0.001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);

Makefile.PL view on Meta::CPAN

  "Net::RabbitMQ" => 0,
  "POSIX" => 0,
  "Perl::Version" => 0,
  "Pod::Usage" => 0,
  "Search::Elasticsearch" => 0,
  "System::Info" => 0,
  "TAP::Harness" => 0,
  "TAP::Parser" => 0,
  "Test::Class" => 0,
  "Test::Deep" => 0,
  "Test::Fatal" => 0,
  "Test::More" => 0,
  "blib" => "1.01",
  "parent" => 0,
  "strict" => 0,
  "utf8" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {

t/App-Prove-Elasticsearch-Blamer-Default.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 4;
use Test::Fatal;
use App::Prove::Elasticsearch::Blamer::Default;
use Capture::Tiny qw{capture_merged};

{
    my $f = 't/data/bogus/lessbogus/subdir/zippy.t';
    is(App::Prove::Elasticsearch::Blamer::Default::get_responsible_party($f),'TEODESIAN',"get_responsible_party returns correct author in Changes");
    is(App::Prove::Elasticsearch::Blamer::Default::get_responsible_party($f),'TEODESIAN',"get_responsible_party returns correct author when searching cache");
}

{

t/App-Prove-Elasticsearch-Blamer-Env.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 2;
use Test::Fatal;
use App::Prove::Elasticsearch::Blamer::Env;

{
    local $ENV{TESTSUITE_EXECUTOR} = 'zippy';
    is(App::Prove::Elasticsearch::Blamer::Env::get_responsible_party(),'zippy',"get_responsible_party returns correct author passed in ENV");
}

{
    local $ENV{TESTSUITE_EXECUTOR} = '';
    like(exception { App::Prove::Elasticsearch::Blamer::Env::get_responsible_party() },qr/not set/i,"get_responsible_party explodes when ENV is not set");

t/App-Prove-Elasticsearch-Blamer-Git.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 1;
use Test::Fatal;
use App::Prove::Elasticsearch::Blamer::Git;

{
    no warnings qw{redefine once};
    local *Git::command_oneline = sub { return "zippy\n" };
    use warnings;
    is(App::Prove::Elasticsearch::Blamer::Git::get_responsible_party(),'zippy',"get_responsible_party returns correct author from git config");
}

t/App-Prove-Elasticsearch-Blamer-System.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 1;
use Test::Fatal;
use App::Prove::Elasticsearch::Blamer::System;

{
    sub mockeroo {
        return 'zippy';
    }

    no warnings qw{redefine once};
    local *System::Info::sysinfo_hash = sub { return { hostname => 'zippy.test' } };
    local *App::Prove::Elasticsearch::Blamer::System::_get_uname = sub { return 'zippy' };

t/App-Prove-Elasticsearch-Harness.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 6;
use Test::Fatal;
use Test::Deep;
use Capture::Tiny qw{capture_merged};

use FindBin;
use App::Prove::Elasticsearch::Harness;
use App::Prove::Elasticsearch::Indexer;

{
    my $p = { verbosity => 1 };
    my $harness;

t/App-Prove-Elasticsearch-Indexer.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 17;
use Test::Fatal;
use Test::Deep;
use Capture::Tiny qw{capture_merged};

use App::Prove::Elasticsearch::Indexer;

#check_index
{
    no warnings qw{redefine once};
    local *Search::Elasticsearch::new = sub { return bless({},'Search::Elasticsearch') };
    local *Search::Elasticsearch::indices = sub { return bless({},'Search::Elasticsearch::Indices') };

t/App-Prove-Elasticsearch-Parser.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 15;
use Test::Fatal;
use Test::Deep;
use Capture::Tiny qw{capture_merged};

use FindBin;
use App::Prove::Elasticsearch::Parser;

{
    is(exception { App::Prove::Elasticsearch::Parser::_require_indexer('App::Prove::Elasticsearch::Indexer') }, undef, "Can require indexer OK");
}

t/App-Prove-Elasticsearch-Planner-Default.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 29;
use Test::Deep;
use Test::Fatal;
use Capture::Tiny qw{capture_merged};

use App::Prove::Elasticsearch::Planner::Default;

INDEXER: {
    no warnings qw{redefine once};
    local *Search::Elasticsearch::new = sub { return bless({},'Search::Elasticsearch') };
    local *Search::Elasticsearch::indices = sub { return bless({},'Search::Elasticsearch::Indices') };
    local *Search::Elasticsearch::Indices::exists = sub { return 1};
    use warnings;

t/App-Prove-Elasticsearch-Platformer-Env.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 2;
use Test::Deep;
use Test::Fatal;
use App::Prove::Elasticsearch::Platformer::Env;

{
    local $ENV{'TESTSUITE_PLATFORM'} = 'Zippy OS 6,Perl v666';
    cmp_bag( App::Prove::Elasticsearch::Platformer::Env::get_platforms(),['Zippy OS 6','Perl v666'],"get_platforms returns expected information");
}

{
    local $ENV{'TESTSUITE_PLATFORM'} = '';
    like( exception { App::Prove::Elasticsearch::Platformer::Env::get_platforms() } ,qr/not set/i,"get_platforms explodes if TESTSUITE_PLATFORM is not set");

t/App-Prove-Elasticsearch-Provisioner-Perl.t view on Meta::CPAN

use strict;
use warnings;

package Test::APEP::Perl;

use parent qw{Test::Class};
use Test::More;
use Test::Deep;
use Test::Fatal;

use App::Prove::Elasticsearch::Provisioner::Perl;

sub test_get_available_provision_targets : Test(2) {
    my @in = ('perl5.004_05','perl-5.26.2');
    no warnings qw{redefine once};
    local *App::perlbrew::new = sub { return bless({},shift) };
    local *App::perlbrew::available_perls = sub { return @in };
    use warnings;

t/App-Prove-Elasticsearch-Queue-Default.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 12;
use Test::Fatal;
use Test::Deep;
use App::Prove::Elasticsearch::Queue::Default;
use Capture::Tiny qw{capture_merged};

is(App::Prove::Elasticsearch::Queue::Default::queue_jobs(),0,"q-jobs is no-op on default");

{
    no warnings qw{redefine once};
    local *App::Prove::Elasticsearch::Utils::process_configuration   = sub { return shift };
    local *App::Prove::Elasticsearch::Utils::require_planner         = sub { return 'App::Prove::Elasticsearch::Planner::Default' };

t/App-Prove-Elasticsearch-Queue-Rabbit.t view on Meta::CPAN

#XXX this test is plagued by a *horrific* perl bug, the dread 'Use of uninitialized value in null operation' during die()
#use strict;
#use warnings;

use Test::More tests => 6;
use Test::Fatal;
use App::Prove::Elasticsearch::Queue::Rabbit;
use Capture::Tiny qw{capture_merged};

use POSIX;
#XXX can't do closures because of the insane bug I'm working around

# new

local *App::Prove::Elasticsearch::Queue::Default::new   = sub { my ($class,$conf) = @_; return bless({config => $conf}, $class) };
local *Net::RabbitMQ::new                               = sub { return bless({},shift) };

t/App-Prove-Elasticsearch-Runner-Default.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 4;
use Test::Fatal;
use App::Prove::Elasticsearch::Runner::Default;
use Capture::Tiny qw{capture_merged};

no warnings qw{redefine once};
local *App::Prove::new = sub { return bless({},'App::Prove') };
local *App::Prove::process_args = sub { print "@_\n" };
local *App::Prove::run = sub { print "RUN OK\n" };
use warnings;

my $config = {

t/App-Prove-Elasticsearch-Searcher-ByName.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 9;
use Test::Fatal;
use Test::Deep;

use App::Prove::Elasticsearch::Indexer;
use App::Prove::Elasticsearch::Searcher::ByName;

{
    no warnings qw{redefine once};
    local *Search::Elasticsearch::new = sub { return 1 };
    local *App::Prove::Elasticsearch::Utils::require_versioner = sub {};
    local *App::Prove::Elasticsearch::Utils::require_platformer = sub {};

t/App-Prove-Elasticsearch-Utils.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 23;
use Test::Fatal;
use Test::Deep;

use FindBin;
use App::Prove::Elasticsearch::Utils;

CONF: {
    no warnings qw{redefine once};
    local *Config::Simple::import_from = sub {  $_[2]->{'server.host'} = 'zippy.test'; $_[2]->{'server.port'} = '666'; return 1 };
    local *File::HomeDir::my_home      = sub { return $FindBin::Bin };
    use warnings;

t/App-Prove-Elasticsearch-Versioner-Default.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 4;
use Test::Fatal;
use Capture::Tiny qw{capture_merged};
use App::Prove::Elasticsearch::Versioner::Default;

{
    my $t = 't/data/bogus/zippy.t';
    is(App::Prove::Elasticsearch::Versioner::Default::get_version($t),'0.111.1112.2.2.3',"get_version returns correct version in Changes");
    is(App::Prove::Elasticsearch::Versioner::Default::get_version($t),'0.111.1112.2.2.3',"get_version returns correct version when searching cache");
}

{

t/App-Prove-Elasticsearch-Versioner-Env.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 2;
use Test::Fatal;
use App::Prove::Elasticsearch::Versioner::Env;

{
    local $ENV{TESTSUITE_VERSION} = '666';
    is(App::Prove::Elasticsearch::Versioner::Env::get_version(),'666',"get_version returns correct version in TESTSUITE_VERSION");
}

{
    local $ENV{TESTSUITE_VERSION} = '';
    like(exception { App::Prove::Elasticsearch::Versioner::Env::get_version() },qr/not set/i,"get_version dies on no TESTSUITE_VERSION");

t/App-Prove-Elasticsearch-Versioner-Git.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 2;
use Test::Fatal;
use App::Prove::Elasticsearch::Versioner::Git;

{
    no warnings qw{redefine once};
    local *Git::command_oneline = sub { return '666' };
    use warnings;
    is(App::Prove::Elasticsearch::Versioner::Git::get_version(),'666',"get_version returns correct SHA for repo HEAD");
}

{

t/App-Prove-Plugin-Elasticsearch.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 3;
use Test::Fatal;
use Test::Deep;
use Capture::Tiny qw{capture_merged};

use FindBin;
use App::Prove;
use App::Prove::Plugin::Elasticsearch;

MAIN: {

    my $straightdope = { 'server.host' => 'zippy.test', 'server.port' => 666 };

t/App-ape-plan.t view on Meta::CPAN

use strict;
use warnings;

package Test::GrapeApe::Planner;

use parent qw{Test::Class};
use Test::More;
use Test::Fatal;
use Test::Deep;
use Capture::Tiny qw{capture};

use App::ape::plan;

sub test_new : Test(5) {
    is(App::ape::plan->new(),2,"No args returns bad exit code");
    is(App::ape::plan->new(qw{--version 666 --show --prompt}),3,"Bad exit code returned due to incompatible options");

    no warnings qw{redefine once};

t/App-ape-test.t view on Meta::CPAN

use strict;
use warnings;

package Test::GrapeApe::Tester;

use parent qw{Test::Class};
use Test::More;
use Test::Fatal;
use Test::Deep;
use Capture::Tiny qw{capture};

use App::ape::test;

sub test_new : Test(4) {
    is(App::ape::test->new(),1,"Passing no args results in error");
    is(App::ape::test->new(qw{--status OK}),2,"Passing no tests results in error");

    no warnings qw{redefine once};

t/App-ape.t view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 1;
use Cwd qw{abs_path};
use Test::Fatal;

use App::ape;

#XXX using pod2usage incorrectly here unfortunately, resulting in exit() rather than die()
#like( exception { App::ape->new('zippy') }, qr/valid command/i, "Valid command must be passed to ape");

my $old_procname = $0;

no warnings qw{redefine once};
*App::ape::test::new = sub { return 'whee' };

t/data/Makefile.PL view on Meta::CPAN

  },
  "TEST_REQUIRES" => {
    "App::Prove" => 0,
    "Capture::Tiny" => 0,
    "Carp::Always" => 0,
    "File::Spec" => 0,
    "FindBin" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::Deep" => 0,
    "Test::Fatal" => 0,
    "Test::More" => 0,
    "blib" => "1.01"
  },
  "VERSION" => "0.001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);

t/data/Makefile.PL view on Meta::CPAN

  "Git" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "List::Util" => 0,
  "POSIX" => 0,
  "Search::Elasticsearch" => 0,
  "Sys::Info::OS" => 0,
  "TAP::Harness" => 0,
  "TAP::Parser" => 0,
  "Test::Deep" => 0,
  "Test::Fatal" => 0,
  "Test::More" => 0,
  "blib" => "1.01",
  "parent" => 0,
  "strict" => 0,
  "utf8" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {

( run in 2.046 seconds using v1.01-cache-2.11-cpan-54e63673c56 )