t/todo_tests/role_insertion_order.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

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;