diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 15:14:16 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 15:14:16 -0600 |
| commit | 4595271c2aebc580c6957cfe3ae7e39f2d519865 (patch) | |
| tree | acd7504c6f19cf9eab9a63a35a616902a57509d0 /t/20-inheritance.t | |
| parent | 35216d45b91d9ce8db4f7b0586fb6ec24970c57f (diff) | |
| download | bread-board-declare-4595271c2aebc580c6957cfe3ae7e39f2d519865.tar.gz bread-board-declare-4595271c2aebc580c6957cfe3ae7e39f2d519865.zip | |
few more tests for inheritance
Diffstat (limited to 't/20-inheritance.t')
| -rw-r--r-- | t/20-inheritance.t | 12 |
1 files changed, 12 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'); |