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/40-mop.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 't/40-mop.t') 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