X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=Moose-t-failing%2F050_metaclasses%2F014_goto_moose_import.t;fp=t%2F050_metaclasses%2Ffailing%2F014_goto_moose_import.t;h=4b5ea9ecce3544fe6e85bec2c70cee0548faee15;hp=063d4f0dfd8839e30d08505c961692eb16bc4a51;hb=c47cf41554416ee1828eab17d31342a53aaa0839;hpb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27

diff --git a/t/050_metaclasses/failing/014_goto_moose_import.t b/Moose-t-failing/050_metaclasses/014_goto_moose_import.t
similarity index 61%
rename from t/050_metaclasses/failing/014_goto_moose_import.t
rename to Moose-t-failing/050_metaclasses/014_goto_moose_import.t
index 063d4f0..4b5ea9e 100644
--- a/t/050_metaclasses/failing/014_goto_moose_import.t
+++ b/Moose-t-failing/050_metaclasses/014_goto_moose_import.t
@@ -1,16 +1,20 @@
 #!/usr/bin/perl
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More;
+$TODO = q{Mouse is not yet completed};
 use Test::Exception;
 
 # Some packages out in the wild cooperate with Mouse by using goto
 # &Mouse::import. we want to make sure it still works.
 
 {
-    package MouseAlike1;
+    package MooseAlike1;
 
     use strict;
     use warnings;
@@ -29,23 +33,23 @@ use Test::Exception;
 {
     package Foo;
 
-    MouseAlike1->import();
+    MooseAlike1->import();
 
     ::lives_ok( sub { has( 'size', is => 'bare' ) },
-                'has was exported via MouseAlike1' );
+                'has was exported via MooseAlike1' );
 
-    MouseAlike1->unimport();
+    MooseAlike1->unimport();
 }
 
 ok( ! Foo->can('has'),
-    'No has sub in Foo after MouseAlike1 is unimported' );
+    'No has sub in Foo after MooseAlike1 is unimported' );
 ok( Foo->can('meta'),
     'Foo has a meta method' );
 isa_ok( Foo->meta(), 'Mouse::Meta::Class' );
 
 
 {
-    package MouseAlike2;
+    package MooseAlike2;
 
     use strict;
     use warnings;
@@ -66,17 +70,19 @@ isa_ok( Foo->meta(), 'Mouse::Meta::Class' );
 {
     package Bar;
 
-    MouseAlike2->import();
+    MooseAlike2->import();
 
     ::lives_ok( sub { has( 'size', is => 'bare' ) },
-                'has was exported via MouseAlike2' );
+                'has was exported via MooseAlike2' );
 
-    MouseAlike2->unimport();
+    MooseAlike2->unimport();
 }
 
 
 ok( ! Bar->can('has'),
-          'No has sub in Bar after MouseAlike2 is unimported' );
+          'No has sub in Bar after MooseAlike2 is unimported' );
 ok( Bar->can('meta'),
     'Bar has a meta method' );
 isa_ok( Bar->meta(), 'Mouse::Meta::Class' );
+
+done_testing;