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 { My::Meta->meta()->make_immutable() } 'can make a meta class immutable';
  27