Moose-t-failing/030_roles/039_application_toclass.t

   1 #!/usr/bin/env perl
   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 strict;
   6 use warnings;
   7 use Test::More;
   8 $TODO = q{Mouse is not yet completed};
   9
  10 do {
  11     package Role::Foo;
  12     use Mouse::Role;
  13
  14     sub foo { }
  15
  16
  17     package Consumer::Basic;
  18     use Mouse;
  19
  20     with 'Role::Foo';
  21
  22     package Consumer::Excludes;
  23     use Mouse;
  24
  25     with 'Role::Foo' => { -excludes => 'foo' };
  26
  27     package Consumer::Aliases;
  28     use Mouse;
  29
  30     with 'Role::Foo' => { -alias => { 'foo' => 'role_foo' } };
  31
  32     package Consumer::Overrides;
  33     use Mouse;
  34
  35     with 'Role::Foo';
  36
  37     sub foo { }
  38 };
  39
  40 my @basic     = Consumer::Basic->meta->role_applications;
  41 my @excludes  = Consumer::Excludes->meta->role_applications;
  42 my @aliases   = Consumer::Aliases->meta->role_applications;
  43 my @overrides = Consumer::Overrides->meta->role_applications;
  44
  45 is(@basic,     1);
  46 is(@excludes,  1);
  47 is(@aliases,   1);
  48 is(@overrides, 1);
  49
  50 my $basic     = $basic[0];
  51 my $excludes  = $excludes[0];
  52 my $aliases   = $aliases[0];
  53 my $overrides = $overrides[0];
  54
  55 isa_ok($basic,     'Mouse::Meta::Role::Application');
  56 isa_ok($excludes,  'Mouse::Meta::Role::Application');
  57 isa_ok($aliases,   'Mouse::Meta::Role::Application');
  58 isa_ok($overrides, 'Mouse::Meta::Role::Application');
  59
  60 is($basic->role,     Role::Foo->meta);
  61 is($excludes->role,  Role::Foo->meta);
  62 is($aliases->role,   Role::Foo->meta);
  63 is($overrides->role, Role::Foo->meta);
  64
  65 is($basic->class,     Consumer::Basic->meta);
  66 is($excludes->class,  Consumer::Excludes->meta);
  67 is($aliases->class,   Consumer::Aliases->meta);
  68 is($overrides->class, Consumer::Overrides->meta);
  69
  70 is_deeply($basic->get_method_aliases,     {});
  71 is_deeply($excludes->get_method_aliases,  {});
  72 is_deeply($aliases->get_method_aliases,   { foo => 'role_foo' });
  73 is_deeply($overrides->get_method_aliases, {});
  74
  75 is_deeply($basic->get_method_exclusions,     []);
  76 is_deeply($excludes->get_method_exclusions,  ['foo']);
  77 is_deeply($aliases->get_method_exclusions,   []);
  78 is_deeply($overrides->get_method_exclusions, []);
  79
  80 done_testing;