diff options
-rw-r--r-- | t/20-inheritance.t | 12 | ||||
-rw-r--r-- | t/21-roles.t | 15 |
2 files changed, 27 insertions, 0 deletions
diff --git a/t/20-inheritance.t b/t/20-inheritance.t index d08b82a..b5e7b67 100644 --- a/t/20-inheritance.t +++ b/t/20-inheritance.t @@ -54,6 +54,18 @@ use Test::More; { my $parent = Parent->new; + ok($parent->has_service('foo'), "parent has foo"); + ok($parent->has_service('bar'), "parent has bar"); + + my $child = Child->new; + ok($child->has_service('foo'), "child has foo"); + ok($child->has_service('bar'), "child has bar"); + 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->foo, 'FOO'); is($parent->bar, 'FOOBAR'); 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'); |