summaryrefslogtreecommitdiffstats
path: root/t/21-roles.t
diff options
context:
space:
mode:
Diffstat (limited to 't/21-roles.t')
-rw-r--r--t/21-roles.t15
1 files changed, 15 insertions, 0 deletions
diff --git a/t/21-roles.t b/t/21-roles.t
index 255039d..b2c5f2a 100644
--- a/t/21-roles.t
+++ b/t/21-roles.t
@@ -89,6 +89,21 @@ use Test::More;
{
my $parent = Parent->new;
+ ok($parent->has_service('role1'), "parent has role1");
+ ok($parent->has_service('foo'), "parent has foo");
+ ok($parent->has_service('bar'), "parent has bar");
+
+ my $child = Child->new;
+ ok($child->has_service('role1'), "child has role1");
+ ok($child->has_service('foo'), "child has foo");
+ ok($child->has_service('bar'), "child has bar");
+ ok($child->has_service('role2'), "child has role2");
+ ok($child->has_service('baz'), "child has baz");
+ ok($child->has_service('quux'), "child has quux");
+}
+
+{
+ my $parent = Parent->new;
isa_ok($parent, 'Bread::Board::Container');
is($parent->role1, 'ROLE1');
is($parent->foo, 'FOO');