t/050_metaclasses/060_reinitialize.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Test::Moose;
   6 use Test::Exception;
   7
   8 sub check_meta_sanity {
   9     my ($meta, $class) = @_;
  10     local $Test::Builder::Level = $Test::Builder::Level + 1;
  11     isa_ok($meta, 'Moose::Meta::Class');
  12     is($meta->name, $class);
  13     ok($meta->has_method('foo'));
  14     isa_ok($meta->get_method('foo'), 'Moose::Meta::Method');
  15     ok($meta->has_attribute('bar'));
  16     isa_ok($meta->get_attribute('bar'), 'Moose::Meta::Attribute');
  17 }
  18
  19 {
  20     package Foo;
  21     use Moose;
  22     sub foo {}
  23     has bar => (is => 'ro');
  24 }
  25
  26 check_meta_sanity(Foo->meta, 'Foo');
  27
  28 Moose::Meta::Class->reinitialize('Foo');
  29 check_meta_sanity(Foo->meta, 'Foo');
  30
  31 {
  32     package Foo::Role::Method;
  33     use Moose::Role;
  34
  35     has foo => (is => 'rw');
  36 }
  37
  38 {
  39     package Foo::Role::Attribute;
  40     use Moose::Role;
  41     has oof => (is => 'rw');
  42 }
  43
  44 Moose::Util::MetaRole::apply_metaroles(
  45     for => 'Foo',
  46     class_metaroles => {
  47         method    => ['Foo::Role::Method'],
  48         attribute => ['Foo::Role::Attribute'],
  49     },
  50 );
  51 check_meta_sanity(Foo->meta, 'Foo');
  52 does_ok(Foo->meta->get_method('foo'), 'Foo::Role::Method');
  53 does_ok(Foo->meta->get_attribute('bar'), 'Foo::Role::Attribute');
  54
  55 Moose::Meta::Class->reinitialize('Foo');
  56 check_meta_sanity(Foo->meta, 'Foo');
  57 does_ok(Foo->meta->get_method('foo'), 'Foo::Role::Method');
  58 does_ok(Foo->meta->get_attribute('bar'), 'Foo::Role::Attribute');
  59
  60 Foo->meta->get_method('foo')->foo('TEST');
  61 Foo->meta->get_attribute('bar')->oof('TSET');
  62 is(Foo->meta->get_method('foo')->foo, 'TEST');
  63 is(Foo->meta->get_attribute('bar')->oof, 'TSET');
  64 Moose::Meta::Class->reinitialize('Foo');
  65 check_meta_sanity(Foo->meta, 'Foo');
  66 is(Foo->meta->get_method('foo')->foo, 'TEST');
  67 is(Foo->meta->get_attribute('bar')->oof, 'TSET');
  68
  69 {
  70     package Bar::Role::Method;
  71     use Moose::Role;
  72 }
  73
  74 {
  75     package Bar::Role::Attribute;
  76     use Moose::Role;
  77 }
  78
  79 {
  80     package Bar;
  81     use Moose;
  82     Moose::Util::MetaRole::apply_metaroles(
  83         for => 'Bar',
  84         class_metaroles => {
  85             method    => ['Bar::Role::Method'],
  86             attribute => ['Bar::Role::Attribute'],
  87         },
  88     );
  89     sub foo {}
  90     has bar => (is => 'ro');
  91 }
  92
  93 check_meta_sanity(Bar->meta, 'Bar');
  94 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
  95 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
  96
  97 Moose::Meta::Class->reinitialize('Bar');
  98 check_meta_sanity(Bar->meta, 'Bar');
  99 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
 100 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
 101 ok(!Moose::Util::does_role(Bar->meta->get_method('foo'), 'Foo::Role::Method'));
 102 ok(!Moose::Util::does_role(Bar->meta->get_attribute('bar'), 'Foo::Role::Attribute'));
 103
 104 Moose::Util::MetaRole::apply_metaroles(
 105     for => 'Bar',
 106     class_metaroles => {
 107         method    => ['Foo::Role::Method'],
 108         attribute => ['Foo::Role::Attribute'],
 109     },
 110 );
 111 check_meta_sanity(Bar->meta, 'Bar');
 112 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
 113 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
 114 does_ok(Bar->meta->get_method('foo'), 'Foo::Role::Method');
 115 does_ok(Bar->meta->get_attribute('bar'), 'Foo::Role::Attribute');
 116
 117 {
 118     package Bar::Meta::Method;
 119     use Moose;
 120     BEGIN { extends 'Moose::Meta::Method' };
 121 }
 122
 123 {
 124     package Bar::Meta::Attribute;
 125     use Moose;
 126     BEGIN { extends 'Moose::Meta::Attribute' };
 127 }
 128
 129 Moose::Meta::Class->reinitialize(
 130     'Bar',
 131     method_metaclass    => 'Bar::Meta::Method',
 132     attribute_metaclass => 'Bar::Meta::Attribute',
 133 );
 134 check_meta_sanity(Bar->meta, 'Bar');
 135 isa_ok(Bar->meta->get_method('foo'), 'Bar::Meta::Method');
 136 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
 137 does_ok(Bar->meta->get_method('foo'), 'Foo::Role::Method');
 138 isa_ok(Bar->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
 139 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
 140 does_ok(Bar->meta->get_attribute('bar'), 'Foo::Role::Attribute');
 141
 142 {
 143     package Baz::Meta::Class;
 144     use Moose;
 145     BEGIN { extends 'Moose::Meta::Class' };
 146
 147     sub initialize {
 148         my $self = shift;
 149         return $self->SUPER::initialize(
 150             @_,
 151             method_metaclass    => 'Bar::Meta::Method',
 152             attribute_metaclass => 'Bar::Meta::Attribute'
 153         );
 154     }
 155 }
 156
 157 {
 158     package Baz;
 159     use Moose -metaclass => 'Baz::Meta::Class';
 160     sub foo {}
 161     has bar => (is => 'ro');
 162 }
 163
 164 check_meta_sanity(Baz->meta, 'Baz');
 165 isa_ok(Baz->meta->get_method('foo'), 'Bar::Meta::Method');
 166 isa_ok(Baz->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
 167 Moose::Meta::Class->reinitialize('Baz');
 168 check_meta_sanity(Baz->meta, 'Baz');
 169 isa_ok(Baz->meta->get_method('foo'), 'Bar::Meta::Method');
 170 isa_ok(Baz->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
 171
 172 Moose::Util::MetaRole::apply_metaroles(
 173     for => 'Baz',
 174     class_metaroles => {
 175         method    => ['Foo::Role::Method'],
 176         attribute => ['Foo::Role::Attribute'],
 177     },
 178 );
 179 check_meta_sanity(Baz->meta, 'Baz');
 180 isa_ok(Baz->meta->get_method('foo'), 'Bar::Meta::Method');
 181 isa_ok(Baz->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
 182 does_ok(Baz->meta->get_method('foo'), 'Foo::Role::Method');
 183 does_ok(Baz->meta->get_attribute('bar'), 'Foo::Role::Attribute');
 184
 185 throws_ok {
 186     Moose::Meta::Class->reinitialize(
 187         'Baz',
 188         method_metaclass    => 'Foo::Meta::Method',
 189         attribute_metaclass => 'Foo::Meta::Attribute',
 190     );
 191 } qr/compatible/;
 192
 193 done_testing;