Commit | Line | Data |
461dc6d3 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
5d492ebf |
6 | use Test::More; |
461dc6d3 |
7 | use Test::Exception; |
8 | |
9 | BEGIN { |
5d492ebf |
10 | require Moose; |
11 | |
12 | plan skip_all => 'Moose::Policy does not work with recent versions of Moose' |
13 | if Moose->VERSION >= 1.05; |
14 | |
15 | plan tests => 2; |
16 | |
461dc6d3 |
17 | use_ok('Moose::Policy'); |
18 | } |
19 | |
20 | { |
21 | package Foo; |
22 | use Moose::Policy 'Moose::Policy::SingleInheritence'; |
23 | use Moose; |
24 | |
25 | package Bar; |
26 | use Moose::Policy 'Moose::Policy::SingleInheritence'; |
27 | use Moose; |
28 | |
29 | extends 'Foo'; |
30 | |
31 | package Baz; |
32 | use Moose::Policy 'Moose::Policy::SingleInheritence'; |
33 | use Moose; |
34 | |
35 | ::dies_ok { |
36 | extends 'Foo', 'Bar'; |
37 | } '... violating the policy'; |
38 | } |
39 | |