tests with perl 5.14 produce deprecation warnings (Todd Rinaldo)

[gitmo/Mouse.git] / t / 300_immutable / 014_immutable_metaclass_with_traits.t

diff --git a/t/300_immutable/014_immutable_metaclass_with_traits.t b/t/300_immutable/014_immutable_metaclass_with_traits.t
index 30098cb..708dbcd 100644 (file)
--- a/t/300_immutable/014_immutable_metaclass_with_traits.t
+++ b/t/300_immutable/014_immutable_metaclass_with_traits.t
@@ -5,7 +5,6 @@ use t::lib::MooseCompat;
 use strict;
 use warnings;
 use Test::More;
-$TODO = q{Mouse is not yet completed};
 
 {
     package FooTrait;
@@ -32,7 +31,9 @@ is(Mouse::Util::class_of('Foo'), Foo->meta,
 $meta = Foo->meta;
 isa_ok($meta->meta, 'Mouse::Meta::Class');
 ok($meta->is_immutable, "class is immutable");
+{ local $TODO = 'Mouse dos not support $meta->meta->is_immutable';
 ok($meta->meta->is_immutable, "metaclass is immutable (immutable class)");
+}
 is(Mouse::Util::class_of($meta), $meta->meta,
     "class_of and ->meta are the same on Foo's metaclass (immutable)");
 isa_ok(Mouse::Util::class_of($meta), 'Mouse::Meta::Class');