[gitmo/MooseX-ConfigFromFile.git] / t / 04a_getopt.t

use strict;
use warnings FATAL => 'all';

use Test::More tests => 2;
use Test::NoWarnings 1.04 ':early';

use Test::Without::Module 'MooseX::Getopt';

{
    package Foo::NoOptions;

    use Moose;
    with qw(MooseX::ConfigFromFile);
    sub get_config_from_file { }
}

ok(
    !Foo::NoOptions->meta->find_attribute_by_name('configfile')->does('MooseX::Getopt::Meta::Attribute::Trait'),
    'the Getopt attr trait is not added if not installed',
);
Commit	Line	Data
742b859c	1	use strict;
bd567467	2	use warnings FATAL => 'all';
742b859c	3
	4	use Test::More tests => 2;
	5	use Test::NoWarnings 1.04 ':early';
	6
	7	use Test::Without::Module 'MooseX::Getopt';
	8
	9	{
	10	package Foo::NoOptions;
	11
	12	use Moose;
	13	with qw(MooseX::ConfigFromFile);
	14	sub get_config_from_file { }
	15	}
	16
	17	ok(
	18	!Foo::NoOptions->meta->find_attribute_by_name('configfile')->does('MooseX::Getopt::Meta::Attribute::Trait'),
	19	'the Getopt attr trait is not added if not installed',
	20	);
	21