Hmm, the same warnings as Moose seems difficult.

[gitmo/Mouse.git] / t / 050_metaclasses / 021_export_with_prototype.t

diff --git a/t/050_metaclasses/021_export_with_prototype.t b/t/050_metaclasses/021_export_with_prototype.t
index d18d3ba..d288900 100644 (file)
--- a/t/050_metaclasses/021_export_with_prototype.t
+++ b/t/050_metaclasses/021_export_with_prototype.t
@@ -6,20 +6,19 @@ package MyExporter::User;
 use MyExporter;
 
 use Test::More;
-$TODO = q{Mouse is not yet completed};
 use Test::Exception;
-
+{ local $TODO = q{Mouse does not support with_meta option in the exporter};
 lives_and {
     with_prototype {
         my $caller = caller(0);
-        is($caller, 'MyExporter', "With_caller prototype code gets called from MyMooseX");
+        is($caller, 'MyExporter', "With_caller prototype code gets called from MyMouseX");
     };
 } "check function with prototype";
-
+} # end of TODO
 lives_and {
     as_is_prototype {
         my $caller = caller(0);
-        is($caller, 'MyExporter', "As-is prototype code gets called from MyMooseX");
+        is($caller, 'MyExporter', "As-is prototype code gets called from MyMouseX");
     };
 } "check function with prototype";