t/300_immutable/003_immutable_meta_class.t

   1 #!/usr/bin/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
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 use Test::Exception;
  11
  12
  13 {
  14     package My::Meta;
  15
  16     use Mouse;
  17
  18     extends 'Mouse::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
  30 done_testing;