Basic test for hooking the usage method

diff --git a/t/104_override_usage.t b/t/104_override_usage.t
new file mode 100644 (file)
index 0000000..be005bc
--- /dev/null
+++ b/t/104_override_usage.t
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+use Test::More 0.88;
+use Test::Exception;
+
+{
+    package MyScript;
+    use Moose;
+
+    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++; };
+}
+{
+    local @ARGV = ('--foo', '1');
+    my $i = MyScript->new_with_options;
+    ok $i;
+    is $i->foo, 1;
+    is $MyScript::usage, 0;
+}
+{
+    local @ARGV = ('--help');
+    throws_ok { MyScript->new_with_options } qr/A foo/;
+    is $MyScript::usage, 1;
+}
+done_testing;
+