From 4595271c2aebc580c6957cfe3ae7e39f2d519865 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 21 Feb 2011 15:14:16 -0600 Subject: few more tests for inheritance --- t/20-inheritance.t | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 't/20-inheritance.t') 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 @@ -52,6 +52,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'); -- cgit v1.2.3