[gitmo/Moose-Policy.git] / t / 020_SingleInheritence_test.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Exception;

BEGIN {
    use_ok('Moose::Policy');
}

{
    package Foo;
    use Moose::Policy 'Moose::Policy::SingleInheritence';
    use Moose;
    
    package Bar;
    use Moose::Policy 'Moose::Policy::SingleInheritence';
    use Moose;    

    extends 'Foo';
    
    package Baz;
    use Moose::Policy 'Moose::Policy::SingleInheritence';    
    use Moose;    
    
    ::dies_ok {
        extends 'Foo', 'Bar';
    } '... violating the policy';
}
Commit	Line	Data
461dc6d3	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
09eff61e	6	use Test::More tests => 2;
461dc6d3	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Moose::Policy');
	11	}
	12
	13	{
	14	package Foo;
	15	use Moose::Policy 'Moose::Policy::SingleInheritence';
	16	use Moose;
	17
	18	package Bar;
	19	use Moose::Policy 'Moose::Policy::SingleInheritence';
	20	use Moose;
	21
	22	extends 'Foo';
	23
	24	package Baz;
	25	use Moose::Policy 'Moose::Policy::SingleInheritence';
	26	use Moose;
	27
	28	::dies_ok {
	29	extends 'Foo', 'Bar';
	30	} '... violating the policy';
	31	}
	32