X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F600_todo_tests%2F004_role_insertion_order.t;fp=t%2F600_todo_tests%2F004_role_insertion_order.t;h=0000000000000000000000000000000000000000;hb=829433c47061dd70a608bfcd940113c4172b6950;hp=92f346245f5177e40439979e6a8928923354e515;hpb=51c788414482c813eb48fb417b08ba03134ff1a6;p=gitmo%2FMoose.git

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
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;