Release commit for 5.90128

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

use strict;
use warnings;
use Test::More;
use Test::Fatal;

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

no warnings 'once';
*CORE::GLOBAL::exit = sub {};

{
    package TestHelpScript;
    use Moose;
    with 'Catalyst::ScriptRole';
    our $help;
    sub print_usage_text { $help++ }
}

test('--help');
test('-?');

sub test {
    local $TestHelpScript::help;
    local @ARGV = (@_);
    is exception {
        TestHelpScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
    }, undef, 'Lives';
    ok $TestHelpScript::help, 'Got help';
}

done_testing;