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 _exit_with_usage { $help++ }
  16 }
  17
  18 test('-h');
  19 test('--help');
  20
  21 TODO: {
  22     local $TODO = 'This is bork';
  23     test('-?');
  24 }
  25
  26 sub test {
  27     local $TestHelpScript::help;
  28     local @ARGV = (@_);
  29     lives_ok {
  30         TestHelpScript->new_with_options(application_name => 'TestAppToTestScripts')->run;
  31     };
  32     ok $TestHelpScript::help;
  33 }
  34
  35 done_testing;