1 # Re RT#58715 and the claim in the documentation:
2 # If you have Getopt::Long::Descriptive the usage param is also passed to new.
4 # This tests the fix (that fulfills the documentation claim).
6 use strict; use warnings;
7 use Test::More tests => 3;
11 use strict; use warnings;
13 with 'MooseX::Getopt';
16 Moose::Meta::Class->create('MyClassWithBasic',
17 superclasses => ['MyClass'],
18 roles => [ 'MooseX::Getopt::Basic' ],
21 my $basic_obj = MyClassWithBasic->new_with_options();
22 ok(!$basic_obj->meta->has_attribute('usage'), 'basic class has no usage attribute');
24 Moose::Meta::Class->create('MyClassWithGLD',
25 superclasses => ['MyClass'],
26 roles => [ 'MooseX::Getopt' ],
29 my $gld_obj = MyClassWithGLD->new_with_options();
31 ok($gld_obj->meta->has_attribute('usage'), 'class has usage attribute');
32 isa_ok($gld_obj->usage, 'Getopt::Long::Descriptive::Usage');