Implements feature suggestion RT#58715 by storing the Usage object, fixes

[gitmo/MooseX-Getopt.git] / t / 104_override_usage.t

diff --git a/t/104_override_usage.t b/t/104_override_usage.t
index 173c632..d3d0868 100644 (file)
--- a/t/104_override_usage.t
+++ b/t/104_override_usage.t
@@ -10,7 +10,6 @@ use Test::Exception;
     with 'MooseX::Getopt';
 
     has foo => ( isa => 'Int', is => 'ro', documentation => 'A foo' );
-    has help => ( isa => 'Bool', is => 'ro', default => 0, documentation => 'Help');
 
     our $usage = 0;
     before _getopt_full_usage => sub { $usage++; };
@@ -44,9 +43,9 @@ use Test::Exception;
     my $exp = [
          'Unknown option: q
 ',
-         qq{usage: 104_override_usage.t [long options...]
-\t--help     Help
-\t--foo      A foo
+         qq{usage: 104_override_usage.t [-?] [long options...]
+\t-? --usage --help  Prints this usage information.
+\t--foo              A foo
 }
      ];