t/050_metaclasses/054_metaclass_compat_no_fixing_bug.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 use Test::Exception;
   9
  10 {
  11     package Foo::Meta::Constructor1;
  12     use Mouse::Role;
  13 }
  14
  15 {
  16     package Foo::Meta::Constructor2;
  17     use Mouse::Role;
  18 }
  19
  20 {
  21     package Foo;
  22     use Mouse;
  23     Mouse::Util::MetaRole::apply_metaroles(
  24         for             => __PACKAGE__,
  25         class_metaroles => { constructor => ['Foo::Meta::Constructor1'] },
  26     );
  27 }
  28
  29 {
  30     package Foo::Sub;
  31     use Mouse;
  32     Mouse::Util::MetaRole::apply_metaroles(
  33         for             => __PACKAGE__,
  34         class_metaroles => { constructor => ['Foo::Meta::Constructor2'] },
  35     );
  36     extends 'Foo';
  37 }
  38
  39 {
  40     package Foo::Sub::Sub;
  41     use Mouse;
  42     Mouse::Util::MetaRole::apply_metaroles(
  43         for             => __PACKAGE__,
  44         class_metaroles => { constructor => ['Foo::Meta::Constructor2'] },
  45     );
  46     ::lives_ok { extends 'Foo::Sub' } "doesn't try to fix if nothing is needed";
  47 }
  48
  49 done_testing;