From b7f33292fd44a52fdb9f6145c43c717f6585d88c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 15:17:05 -0600
Subject: more with_immutable

---
 t/20-inheritance.t | 3 +++
 t/21-roles.t       | 3 +++
 t/40-mop.t         | 5 +++--
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/t/20-inheritance.t b/t/20-inheritance.t
index b5e7b67..2324673 100644
--- a/t/20-inheritance.t
+++ b/t/20-inheritance.t
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use Test::More;
+use Test::Moose;
 
 {
     package Parent;
@@ -52,6 +53,7 @@ use Test::More;
     );
 }
 
+with_immutable {
 {
     my $parent = Parent->new;
     ok($parent->has_service('foo'), "parent has foo");
@@ -116,5 +118,6 @@ use Test::More;
     is($child->baz, 'ZAB');
     is($child->quux, 'OOFOOFBARZABQUUX');
 }
+} 'Parent', 'Child';
 
 done_testing;
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;
diff --git a/t/40-mop.t b/t/40-mop.t
index c8f0dd9..a3a2a34 100644
--- a/t/40-mop.t
+++ b/t/40-mop.t
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use Test::More;
+use Test::Moose;
 
 {
     package Foo;
@@ -25,7 +26,7 @@ use Test::More;
     );
 }
 
-{
+with_immutable {
     my $foo = Foo->new;
     my $foo_attr = $foo->meta->get_attribute('foo');
     my $bar_attr = $foo->meta->get_attribute('bar');
@@ -33,6 +34,6 @@ use Test::More;
     is($bar_attr->get_value($foo), 'FOOBAR', "right value");
     ok(!$foo_attr->has_value($foo), "no value");
     ok(!$bar_attr->has_value($foo), "no value");
-}
+} 'Foo';
 
 done_testing;
-- 
cgit v1.2.3-54-g00ecf