Moose-t-failing/030_roles/046_role_consumers.t

   1 use strict;
   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;
   5 use warnings;
   6
   7 use Test::More;
   8 $TODO = q{Mouse is not yet completed};
   9
  10 {
  11     package Foo::Role;
  12     use Mouse::Role;
  13 }
  14
  15 {
  16     package Bar::Role;
  17     use Mouse::Role;
  18 }
  19
  20 {
  21     package Foo;
  22     use Mouse;
  23     with 'Foo::Role';
  24 }
  25
  26 {
  27     package Bar;
  28     use Mouse;
  29     extends 'Foo';
  30     with 'Bar::Role';
  31 }
  32
  33 {
  34     package FooBar;
  35     use Mouse;
  36     with 'Foo::Role', 'Bar::Role';
  37 }
  38
  39 {
  40     package Foo::Role::User;
  41     use Mouse::Role;
  42     with 'Foo::Role';
  43 }
  44
  45 {
  46     package Foo::User;
  47     use Mouse;
  48     with 'Foo::Role::User';
  49 }
  50
  51 is_deeply([sort Foo::Role->meta->consumers],
  52           ['Bar', 'Foo', 'Foo::Role::User', 'Foo::User', 'FooBar']);
  53 is_deeply([sort Bar::Role->meta->consumers],
  54           ['Bar', 'FooBar']);
  55 is_deeply([sort Foo::Role::User->meta->consumers],
  56           ['Foo::User']);
  57
  58 done_testing;