t/300_immutable/003_immutable_meta_class.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9
  10 {
  11     package My::Meta;
  12
  13     use Moose;
  14
  15     extends 'Moose::Meta::Class';
  16
  17     has 'meta_size' => (
  18         is  => 'rw',
  19         isa => 'Int',
  20     );
  21 }
  22
  23 lives_ok {
  24     My::Meta->meta()->make_immutable(debug => 0)
  25 } '... can make a meta class immutable';
  26
  27 done_testing;