bae3a1534e8518471ce3fb8f739f142b03ed7974
[gitmo/Moo.git] / t / extend-constructor.t
1 use strictures 1;
2 use Test::More;
3 use Test::Fatal;
4
5 BEGIN {
6   package Role::For::Constructor;
7   use Moo::Role;
8   has extra_param => (is => 'ro');
9 }
10 BEGIN {
11   package Some::Class;
12   use Moo;
13   BEGIN {
14     my $con = Moo->_constructor_maker_for(__PACKAGE__);
15     Moo::Role->apply_roles_to_object($con, 'Role::For::Constructor');
16   }
17 }
18
19 {
20   package Some::SubClass;
21   use Moo;
22   extends 'Some::Class';
23
24   ::is(::exception {
25     has bar => (is => 'ro');
26   }, undef, 'extending constructor generator works');
27 }
28
29 done_testing;