use warnings tester with fewer dependencies, issues

[gitmo/MooseX-Getopt.git] / t / 108_usage_attr.t

# Re RT#58715 and the claim in the documentation:
#   If you have Getopt::Long::Descriptive the usage param is also passed to new.

# This tests the fix (that fulfills the documentation claim).

use strict;
use warnings FATAL => 'all';
use Test::More tests => 4;
use Test::Warnings;

{
    package MyClass;
    use strict; use warnings FATAL => 'all';
    use Moose;
    with 'MooseX::Getopt';
}

Moose::Meta::Class->create('MyClassWithBasic',
    superclasses => ['MyClass'],
    roles => [ 'MooseX::Getopt::Basic' ],
);

my $basic_obj = MyClassWithBasic->new_with_options();
ok(!$basic_obj->meta->has_attribute('usage'), 'basic class has no usage attribute');

Moose::Meta::Class->create('MyClassWithGLD',
    superclasses => ['MyClass'],
    roles => [ 'MooseX::Getopt' ],
);

my $gld_obj = MyClassWithGLD->new_with_options();

ok($gld_obj->meta->has_attribute('usage'), 'class has usage attribute');
isa_ok($gld_obj->usage, 'Getopt::Long::Descriptive::Usage');