t/050_metaclasses/failing/022_new_metaclass.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 2;
   5
   6 do {
   7     package My::Meta::Class;
   8     use Mouse;
   9     BEGIN { extends 'Mouse::Meta::Class' };
  10
  11     package Mouse::Meta::Class::Custom::MyMetaClass;
  12     sub register_implementation { 'My::Meta::Class' }
  13 };
  14
  15 do {
  16     package My::Class;
  17     use Mouse -metaclass => 'My::Meta::Class';
  18 };
  19
  20 do {
  21     package My::Class::Aliased;
  22     use Mouse -metaclass => 'MyMetaClass';
  23 };
  24
  25 is(My::Class->meta->meta->name, 'My::Meta::Class');
  26 is(My::Class::Aliased->meta->meta->name, 'My::Meta::Class');
  27