[gitmo/MooseX-ConfigFromFile.git] / t / 03configfile_method.t

#!/usr/bin/env perl 
use strict;
use Test::More;
use Test::Fatal;
{
    package A;
    use Moose;
    with qw(MooseX::ConfigFromFile);

    sub configfile { 'moo' }

    sub get_config_from_file { {} }
}

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

    sub configfile { die; }
    has configfile => ( is => 'bare', default => 'bar' );

}

is(exception { A->new_with_config() }, undef, 'A->new_with_config lives');
is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');

done_testing();
Commit	Line	Data
0e88ec88	1	#!/usr/bin/env perl
	2	use strict;
	3	use Test::More;
	4	use Test::Fatal;
	5	{
	6	package A;
	7	use Moose;
	8	with qw(MooseX::ConfigFromFile);
	9
	10	sub configfile { 'moo' }
	11
	12	sub get_config_from_file { {} }
	13	}
	14
	15	{
	16	package B;
	17	use Moose;
	18	extends qw(A);
	19
	20	sub configfile { die; }
	21	has configfile => ( is => 'bare', default => 'bar' );
	22
	23	}
	24
	25	is(exception { A->new_with_config() }, undef, 'A->new_with_config lives');
	26	is(exception { B->new_with_config() }, undef, 'B->new_with_config lives');
	27
	28	done_testing();