My previous role preservation fix made a todo test pass, so I moved the test and...

[gitmo/Moose.git] / t / 600_todo_tests / 007_application_metarole_compat.t

diff --git a/t/600_todo_tests/007_application_metarole_compat.t b/t/600_todo_tests/007_application_metarole_compat.t
deleted file mode 100644 (file)
index b141e83..0000000
--- a/t/600_todo_tests/007_application_metarole_compat.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-use Test::Fatal;
-
-BEGIN {
-    {
-        package Foo;
-        use Moose::Role;
-    }
-
-    {
-        package Bar::Class;
-        use Moose::Role;
-    }
-
-    {
-        package Bar::ToClass;
-        use Moose::Role;
-
-        after apply => sub {
-            my $self = shift;
-            my ($role, $class) = @_;
-            Moose::Util::MetaRole::apply_metaroles(
-                for => $class,
-                class_metaroles => {
-                    class => ['Bar::Class'],
-                }
-            );
-        };
-    }
-
-    {
-        package Bar;
-        use Moose::Role;
-        Moose::Util::MetaRole::apply_metaroles(
-            for => __PACKAGE__,
-            role_metaroles => {
-                application_to_class => ['Bar::ToClass'],
-            }
-        );
-    }
-}
-
-{
-    package Parent;
-    use Moose -traits => 'Foo';
-}
-
-{
-    package Child;
-    use Moose -traits => 'Bar';
-    { our $TODO; local $TODO = "no idea what's going on here";
-    ::is( ::exception { extends 'Parent' }, undef );
-    }
-}
-
-done_testing;