t-failing/050_metaclasses/022_new_metaclass.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 My::Meta::Class;
  12     use Mouse;
  13     BEGIN { extends 'Mouse::Meta::Class' };
  14
  15     package Mouse::Meta::Class::Custom::MyMetaClass;
  16     sub register_implementation { 'My::Meta::Class' }
  17 };
  18
  19 do {
  20     package My::Class;
  21     use Mouse -metaclass => 'My::Meta::Class';
  22 };
  23
  24 do {
  25     package My::Class::Aliased;
  26     use Mouse -metaclass => 'MyMetaClass';
  27 };
  28
  29 is(My::Class->meta->meta->name, 'My::Meta::Class');
  30 is(My::Class::Aliased->meta->meta->name, 'My::Meta::Class');
  31
  32 done_testing;