use strict;
-use warnings;
+use warnings FATAL => 'all';
-use Test::More tests => 5;
+use Test::More tests => 7;
use Test::Trap;
-use Test::NoWarnings 1.04 ':early';
+use Test::Warnings;
{
package MyScript;
is($trap->die, join("\n", 'Unknown option: q', $usage), 'usage is printed on unknown option');
}
+{
+ Class::MOP::class_of('MyScript')->add_before_method_modifier(
+ print_usage_text => sub {
+ print "--- DOCUMENTATION ---\n";
+ },
+ );
+
+ local @ARGV = ('--help');
+ trap { MyScript->new_with_options };
+ is(
+ $trap->stdout,
+ join("\n", '--- DOCUMENTATION ---', $usage),
+ 'additional text included before normal usage string',
+ );
+}
+
+{
+ package MyScript2;
+ use Moose;
+
+ with 'MooseX::Getopt';
+ has foo => ( isa => 'Int', is => 'ro', documentation => 'A foo' );
+}
+
+{
+ # some classes (e.g. ether's darkpan and Catalyst::Runtime) overrode
+ # _getopt_full_usage, so we need to keep it in the call stack so we don't
+ # break them.
+ Class::MOP::class_of('MyScript2')->add_before_method_modifier(
+ _getopt_full_usage => sub {
+ print "--- DOCUMENTATION ---\n";
+ },
+ );
+
+ local @ARGV = ('--help');
+ trap { MyScript2->new_with_options };
+ is(
+ $trap->stdout,
+ join("\n", '--- DOCUMENTATION ---', $usage),
+ 'additional text included before normal usage string',
+ );
+}
+