t/aggregate/unit_core_script_help.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Test::Exception;
   6
   7 use FindBin qw/$Bin/;
   8 use lib "$Bin/../lib";
   9
  10 {
  11     package TestHelpScript;
  12     use Moose;
  13     with 'Catalyst::ScriptRole';
  14     our $help;
  15     sub _getopt_full_usage { $help++ }
  16 }
  17
  18 test('-h');
  19 test('--help');
  20 test('-?');
  21
  22 sub test {
  23     local $TestHelpScript::help;
  24     local @ARGV = (@_);
  25     lives_ok {
  26         TestHelpScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
  27     } 'Lives';
  28     ok $TestHelpScript::help, 'Got help';
  29 }
  30
  31 done_testing;