diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 15:17:05 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 15:17:05 -0600 |
| commit | b7f33292fd44a52fdb9f6145c43c717f6585d88c (patch) | |
| tree | d739d28657e203ded8e011ec428088f699d9a321 /t/21-roles.t | |
| parent | 4595271c2aebc580c6957cfe3ae7e39f2d519865 (diff) | |
| download | bread-board-declare-b7f33292fd44a52fdb9f6145c43c717f6585d88c.tar.gz bread-board-declare-b7f33292fd44a52fdb9f6145c43c717f6585d88c.zip | |
more with_immutable
Diffstat (limited to 't/21-roles.t')
| -rw-r--r-- | t/21-roles.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/21-roles.t b/t/21-roles.t index b2c5f2a..60a8c45 100644 --- a/t/21-roles.t +++ b/t/21-roles.t @@ -2,6 +2,7 @@ use strict; use warnings; use Test::More; +use Test::Moose; { package Role1; @@ -87,6 +88,7 @@ use Test::More; ); } +with_immutable { { my $parent = Parent->new; ok($parent->has_service('role1'), "parent has role1"); @@ -167,5 +169,6 @@ use Test::More; is($child->baz, 'ZAB'); is($child->quux, 'OOFOOFBAR1ELORZAB1ELOR2ELORQUUX'); } +} 'Parent', 'Child'; done_testing; |