Moose-t-failing/030_roles/038_new_meta_role.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::Role;
  12     use Mouse;
  13     BEGIN { extends 'Mouse::Meta::Role' };
  14 };
  15
  16 do {
  17     package My::Role;
  18     use Mouse::Role -metaclass => 'My::Meta::Role';
  19 };
  20
  21 is(My::Role->meta->meta->name, 'My::Meta::Role');
  22
  23 done_testing;