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

#!/usr/bin/env perl 
use strict;
use Test::More;
use Test::Fatal;
{
    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');

done_testing();
Commit	Line	Data
7760bb42	1	#!/usr/bin/env perl
	2	use strict;
	3	use Test::More;
2ccaae6c	4	use Test::Fatal;
7760bb42	5	{
	6	package A;
	7	use Moose;
	8	with qw(MooseX::ConfigFromFile);
0e88ec88	9
7760bb42	10	sub get_config_from_file { }
	11	}
	12
	13	{
	14	package B;
	15	use Moose;
	16	extends qw(A);
	17	}
	18
	19	ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile');
2ccaae6c	20	is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
7760bb42	21
7760bb42	22	done_testing();