Cleanup failing tests

[gitmo/Mouse.git] / t / 030_roles / failing / 032_roles_and_method_cloning.t

diff --git a/t/030_roles/failing/032_roles_and_method_cloning.t b/t/030_roles/failing/032_roles_and_method_cloning.t
deleted file mode 100644 (file)
index 2b4e615..0000000
--- a/t/030_roles/failing/032_roles_and_method_cloning.t
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 17;
-
-
-{
-    package Role::Foo;
-    use Mouse::Role;
-
-    sub foo { (caller(0))[3] }
-}
-
-{
-    package ClassA;
-    use Mouse;
-
-    with 'Role::Foo';
-}
-
-{
-    my $meth = ClassA->meta->get_method('foo');
-    ok( $meth, 'ClassA has a foo method' );
-    isa_ok( $meth, 'Mouse::Meta::Method' );
-    is( $meth->original_method, Role::Foo->meta->get_method('foo'),
-        'ClassA->foo was cloned from Role::Foo->foo' );
-    is( $meth->fully_qualified_name, 'ClassA::foo',
-        'fq name is ClassA::foo' );
-    is( $meth->original_fully_qualified_name, 'Role::Foo::foo',
-        'original fq name is Role::Foo::foo' );
-}
-
-{
-    package Role::Bar;
-    use Mouse::Role;
-    with 'Role::Foo';
-
-    sub bar { }
-}
-
-{
-    my $meth = Role::Bar->meta->get_method('foo');
-    ok( $meth, 'Role::Bar has a foo method' );
-    is( $meth->original_method, Role::Foo->meta->get_method('foo'),
-        'Role::Bar->foo was cloned from Role::Foo->foo' );
-    is( $meth->fully_qualified_name, 'Role::Bar::foo',
-        'fq name is Role::Bar::foo' );
-    is( $meth->original_fully_qualified_name, 'Role::Foo::foo',
-        'original fq name is Role::Foo::foo' );
-}
-
-{
-    package ClassB;
-    use Mouse;
-
-    with 'Role::Bar';
-}
-
-{
-    my $meth = ClassB->meta->get_method('foo');
-    ok( $meth, 'ClassB has a foo method' );
-    is( $meth->original_method, Role::Bar->meta->get_method('foo'),
-        'ClassA->foo was cloned from Role::Bar->foo' );
-    is( $meth->original_method->original_method, Role::Foo->meta->get_method('foo'),
-        '... which in turn was cloned from Role::Foo->foo' );
-    is( $meth->fully_qualified_name, 'ClassB::foo',
-        'fq name is ClassA::foo' );
-    is( $meth->original_fully_qualified_name, 'Role::Foo::foo',
-        'original fq name is Role::Foo::foo' );
-}
-
-isnt( ClassA->foo, "ClassB::foo", "ClassA::foo is not confused with ClassB::foo");
-
-{
-    local $TODO =
-      "multiply-consumed roles' subs take on their most recently used name";
-    is( ClassB->foo, 'ClassB::foo', 'ClassB::foo knows its name' );
-    is( ClassA->foo, 'ClassA::foo', 'ClassA::foo knows its name' );
-}