t/050_metaclasses/053_immutable_metaclass_compat_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
   9 {
  10     package Foo::Base::Meta::Trait;
  11     use Mouse::Role;
  12 }
  13
  14 {
  15     package Foo::Base;
  16     use Mouse;
  17     Mouse::Util::MetaRole::apply_metaroles(
  18         for             => __PACKAGE__,
  19         class_metaroles => { constructor => ['Foo::Base::Meta::Trait'] },
  20     );
  21     __PACKAGE__->meta->make_immutable;
  22 }
  23
  24 {
  25     package Foo::Meta::Trait;
  26     use Mouse::Role;
  27 }
  28
  29 {
  30     package Foo;
  31     use Mouse;
  32     Mouse::Util::MetaRole::apply_metaroles(
  33         for             => __PACKAGE__,
  34         class_metaroles => { constructor => ['Foo::Meta::Trait'] }
  35     );
  36     ::ok(!Foo->meta->is_immutable);
  37     extends 'Foo::Base';
  38     ::ok(!Foo->meta->is_immutable);
  39 }
  40
  41 done_testing;