t/071_immutable_w_custom_metaclass.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Class::MOP');
  11 }
  12
  13 {
  14     package Meta::Baz;
  15     use strict;
  16     use warnings;
  17     use base 'Class::MOP::Class';
  18 }
  19
  20 {
  21     package Bar;
  22
  23     use strict;
  24     use warnings;
  25     use metaclass;
  26
  27     __PACKAGE__->meta->make_immutable;
  28
  29     package Baz;
  30
  31     use strict;
  32     use warnings;
  33     use metaclass 'Meta::Baz';
  34
  35     ::lives_ok {
  36         Baz->meta->superclasses('Bar');
  37     } '... we survive the metaclass incompatability test';
  38 }
  39
  40
  41