From f4a6e54d951725428aef71f0d81ab9f1e438d53c Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 2 Mar 2011 22:32:12 -0600 Subject: more with_immutable --- t/22-more-inheritance.t | 3 +++ 1 file changed, 3 insertions(+) (limited to 't/22-more-inheritance.t') diff --git a/t/22-more-inheritance.t b/t/22-more-inheritance.t index d13639b..94d726c 100644 --- a/t/22-more-inheritance.t +++ b/t/22-more-inheritance.t @@ -2,6 +2,7 @@ use strict; use warnings; use Test::More; +use Test::Moose; { package Parent; @@ -75,6 +76,7 @@ use Test::More; ); } +with_immutable { { my $obj = Parent->new; is($obj->foo, 'parent'); @@ -98,5 +100,6 @@ use Test::More; is($obj->foo, 'child'); is($obj->bar, 'child child'); } +} 'Parent', 'Child1', 'Child2', 'Child3'; done_testing; -- cgit v1.2.3-54-g00ecf