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

#!/usr/bin/env perl 
use strict;
use Test::More;
use Test::Exception;
{
    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');
lives_ok { B->new_with_config() } 'B->new_with_config lives';

done_testing();
Commit	Line	Data
7760bb42	1	#!/usr/bin/env perl
	2	use strict;
	3	use Test::More;
	4	use Test::Exception;
	5	{
	6	package A;
	7	use Moose;
	8	with qw(MooseX::ConfigFromFile);
	9
	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');
	20	lives_ok { B->new_with_config() } 'B->new_with_config lives';
	21
	22	done_testing();