X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F014_goto_moose_import.t;fp=t%2F050_metaclasses%2Ffailing%2F014_goto_moose_import.t;h=0000000000000000000000000000000000000000;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=063d4f0dfd8839e30d08505c961692eb16bc4a51;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/failing/014_goto_moose_import.t b/t/050_metaclasses/failing/014_goto_moose_import.t
deleted file mode 100644
index 063d4f0..0000000
--- a/t/050_metaclasses/failing/014_goto_moose_import.t
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 8;
-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;
-
-    use strict;
-    use warnings;
-
-    use Mouse ();
-
-    sub import {
-        goto &Mouse::import;
-    }
-
-    sub unimport {
-        goto &Mouse::unimport;
-    }
-}
-
-{
-    package Foo;
-
-    MouseAlike1->import();
-
-    ::lives_ok( sub { has( 'size', is => 'bare' ) },
-                'has was exported via MouseAlike1' );
-
-    MouseAlike1->unimport();
-}
-
-ok( ! Foo->can('has'),
-    'No has sub in Foo after MouseAlike1 is unimported' );
-ok( Foo->can('meta'),
-    'Foo has a meta method' );
-isa_ok( Foo->meta(), 'Mouse::Meta::Class' );
-
-
-{
-    package MouseAlike2;
-
-    use strict;
-    use warnings;
-
-    use Mouse ();
-
-    my $import = \&Mouse::import;
-    sub import {
-        goto $import;
-    }
-
-    my $unimport = \&Mouse::unimport;
-    sub unimport {
-        goto $unimport;
-    }
-}
-
-{
-    package Bar;
-
-    MouseAlike2->import();
-
-    ::lives_ok( sub { has( 'size', is => 'bare' ) },
-                'has was exported via MouseAlike2' );
-
-    MouseAlike2->unimport();
-}
-
-
-ok( ! Bar->can('has'),
-          'No has sub in Bar after MouseAlike2 is unimported' );
-ok( Bar->can('meta'),
-    'Bar has a meta method' );
-isa_ok( Bar->meta(), 'Mouse::Meta::Class' );