2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
8 $TODO = q{Mouse is not yet completed};
13 has 'a' => (is => 'ro');
14 has 'b' => (is => 'ro');
15 has 'c' => (is => 'ro');
21 has 'd' => (is => 'ro');
23 has 'e' => (is => 'ro');
26 my %role_insertion_order = (
32 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");
34 my %class_insertion_order = (
42 { local $TODO = "insertion order is lost during role application";
43 is_deeply({ map { $_->name => $_->insertion_order } Foo->meta->get_all_attributes }, \%class_insertion_order, "right insertion order within the class");