use Moose;
with 'Catalyst::ScriptRole';
our $help;
- sub _exit_with_usage { $help++ }
+ sub _getopt_full_usage { $help++ }
}
-test('-h');
test('--help');
-
-TODO: {
- local $TODO = 'This is bork';
- test('-?');
-}
+test('-?');
sub test {
local $TestHelpScript::help;
local @ARGV = (@_);
lives_ok {
TestHelpScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
- };
- ok $TestHelpScript::help;
+ } 'Lives';
+ ok $TestHelpScript::help, 'Got help';
}
done_testing;