[gitmo/MooseX-ConfigFromFile.git] / t / 02subclass.t

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

use Test::More tests => 3;
use Test::Fatal;
use Test::Warnings;

{
    package A;
    use Moose;
    with qw(MooseX::ConfigFromFile);

    sub get_config_from_file { }
}

{
    package B;
    use Moose;
    extends qw(A);
}

ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
Commit	Line	Data
7760bb42	1	use strict;
bd567467	2	use warnings FATAL => 'all';
fcc2d1ec	3
fcc2d1ec	4	use Test::More tests => 3;
2ccaae6c	5	use Test::Fatal;
3736a8a9	6	use Test::Warnings;
fcc2d1ec	7
7760bb42	8	{
	9	package A;
	10	use Moose;
	11	with qw(MooseX::ConfigFromFile);
0e88ec88	12
7760bb42	13	sub get_config_from_file { }
	14	}
	15
	16	{
	17	package B;
	18	use Moose;
	19	extends qw(A);
	20	}
	21
	22	ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
2ccaae6c	23	is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
7760bb42	24