convert all uses of Test::Exception to Test::Fatal

[catagits/Catalyst-Runtime.git] / t / aggregate / unit_core_script_create.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Fatal;

use FindBin qw/$Bin/;
use lib "$Bin/../lib";

{
    package TestCreateScript;
    use Moose;
    extends 'Catalyst::Script::Create';
    our $help;
    sub print_usage_text { $help++ }
}

{
    package TestHelperClass;
    use Moose;

    has 'newfiles' => ( is => 'ro', init_arg => '.newfiles' );
    has 'mech' => ( is => 'ro' );
    our @ARGS;
    our %p;
    sub mk_component {
        my $self = shift;
        @ARGS = @_;
        %p = ( '.newfiles' => $self->newfiles, mech => $self->mech);
        return $self->_mk_component_return;
    }
    sub _mk_component_return { 1 }
}
{
    package TestHelperClass::False;
    use Moose;
    extends 'TestHelperClass';
    sub _mk_component_return { 0 }
}

{
    local $TestCreateScript::help;
    local @ARGV;
    is exception {
        TestCreateScript->new_with_options(application_name => 'TestAppToTestScripts', helper_class => 'TestHelperClass')->run;
    }, undef, "no argv";
    ok $TestCreateScript::help, 'Exited with usage info';
}
{
    local $TestCreateScript::help;
    local @ARGV = 'foo';
    local @TestHelperClass::ARGS;
    local %TestHelperClass::p;
    is exception {
        TestCreateScript->new_with_options(application_name => 'TestAppToTestScripts', helper_class => 'TestHelperClass')->run;
    }, undef, "with argv";
    ok !$TestCreateScript::help, 'Did not exit with usage into';
    is_deeply \@TestHelperClass::ARGS, ['TestAppToTestScripts', 'foo'], 'Args correct';
    is_deeply \%TestHelperClass::p, { '.newfiles' => 1, mech => undef }, 'Params correct';
}

{
    local $TestCreateScript::help;
    local @ARGV = 'foo';
    local @TestHelperClass::ARGS;
    local %TestHelperClass::p;
    is exception {
        TestCreateScript->new_with_options(application_name => 'TestAppToTestScripts', helper_class => 'TestHelperClass::False')->run;
    }, undef, "with argv";
    ok $TestCreateScript::help, 'Did exit with usage into as mk_component returned false';
    is_deeply \@TestHelperClass::ARGS, ['TestAppToTestScripts', 'foo'], 'Args correct';
    is_deeply \%TestHelperClass::p, { '.newfiles' => 1, mech => undef }, 'Params correct';
}

done_testing;