From b7f33292fd44a52fdb9f6145c43c717f6585d88c Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 21 Feb 2011 15:17:05 -0600 Subject: more with_immutable --- t/21-roles.t | 3 +++ 1 file changed, 3 insertions(+) (limited to 't/21-roles.t') 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; -- cgit v1.2.3-54-g00ecf