summaryrefslogtreecommitdiffstats
path: root/t/40-mop.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-02-21 15:17:05 -0600
committerJesse Luehrs <doy@tozt.net>2011-02-21 15:17:05 -0600
commitb7f33292fd44a52fdb9f6145c43c717f6585d88c (patch)
treed739d28657e203ded8e011ec428088f699d9a321 /t/40-mop.t
parent4595271c2aebc580c6957cfe3ae7e39f2d519865 (diff)
downloadbread-board-declare-b7f33292fd44a52fdb9f6145c43c717f6585d88c.tar.gz
bread-board-declare-b7f33292fd44a52fdb9f6145c43c717f6585d88c.zip
more with_immutable
Diffstat (limited to 't/40-mop.t')
-rw-r--r--t/40-mop.t5
1 files changed, 3 insertions, 2 deletions
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;