Remove numbers from our tests

[gitmo/Moose.git] / t / 600_todo_tests / 004_role_insertion_order.t

diff --git a/t/600_todo_tests/004_role_insertion_order.t b/t/600_todo_tests/004_role_insertion_order.t
deleted file mode 100644 (file)
index 92f3462..0000000
--- a/t/600_todo_tests/004_role_insertion_order.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More;
-
-{
-    package Foo::Role;
-    use Moose::Role;
-    has 'a' => (is => 'ro');
-    has 'b' => (is => 'ro');
-    has 'c' => (is => 'ro');
-}
-
-{
-    package Foo;
-    use Moose;
-    has 'd' => (is => 'ro');
-    with 'Foo::Role';
-    has 'e' => (is => 'ro');
-}
-
-my %role_insertion_order = (
-    a => 0,
-    b => 1,
-    c => 2,
-);
-
-is_deeply({ map { $_->name => $_->insertion_order } map { Foo::Role->meta->get_attribute($_) } Foo::Role->meta->get_attribute_list }, \%role_insertion_order, "right insertion order within the role");
-
-my %class_insertion_order = (
-    d => 0,
-    a => 1,
-    b => 2,
-    c => 3,
-    e => 4,
-);
-
-{ local $TODO = "insertion order is lost during role application";
-is_deeply({ map { $_->name => $_->insertion_order } Foo->meta->get_all_attributes }, \%class_insertion_order, "right insertion order within the class");
-}
-
-done_testing;