projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fail with namespace::autoclean
[gitmo/Moo.git]
/
xt
/
moose-does-moo-role.t
1
use strictures 1;
2
use Test::More;
3
use Test::Exception;
4
5
use Moo::HandleMoose;
6
7
{
8
package MooRole;
9
use Moo::Role;
10
11
package MooRoledMooClass;
12
use Moo;
13
with 'MooRole';
14
15
package MooRoledMooseClass;
16
use Moose;
17
with 'MooRole';
18
19
package MooseParent;
20
use Moose;
21
22
has e => (
23
is => 'ro',
24
required => 1,
25
does => 'MooRole',
26
);
27
28
package MooParent;
29
use Moo;
30
31
has e => (
32
is => 'ro',
33
required => 1,
34
does => 'MooRole',
35
);
36
}
37
38
for my $parent (qw(MooseParent MooParent)) {
39
for my $child (qw(MooRoledMooClass MooRoledMooseClass)) {
40
lives_ok {
41
$parent->new(
42
e => $child->new(),
43
);
44
} "$parent instantiated with a $child delegate that does a MooRole";
45
}
46
}
47
48
done_testing;