t/300_immutable/003_immutable_meta_class.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('Moose');
  11 }
  12
  13 {
  14     package My::Meta;
  15
  16     use Moose;
  17
  18     extends 'Moose::Meta::Class';
  19
  20     has 'meta_size' => (
  21         is  => 'rw',
  22         isa => 'Int',
  23     );
  24 }
  25
  26 lives_ok {
  27     My::Meta->meta()->make_immutable(debug => 0)
  28 } '... can make a meta class immutable';
  29