t/300_immutable/014_immutable_metaclass_with_traits.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 12;
   5
   6 {
   7     package FooTrait;
   8     use Moose::Role;
   9 }
  10 {
  11     package Foo;
  12     use Moose -traits => ['FooTrait'];
  13 }
  14
  15 is(Class::MOP::class_of('Foo'), Foo->meta,
  16     "class_of and ->meta are the same on Foo");
  17 my $meta = Foo->meta;
  18 is(Class::MOP::class_of($meta), $meta->meta,
  19     "class_of and ->meta are the same on Foo's metaclass");
  20 isa_ok(Class::MOP::class_of($meta), 'Moose::Meta::Class');
  21 isa_ok($meta->meta, 'Moose::Meta::Class');
  22 ok($meta->is_mutable, "class is mutable");
  23 ok(Class::MOP::class_of($meta)->is_mutable, "metaclass is mutable");
  24 Foo->meta->make_immutable;
  25 is(Class::MOP::class_of('Foo'), Foo->meta,
  26     "class_of and ->meta are the same on Foo (immutable)");
  27 $meta = Foo->meta;
  28 isa_ok($meta->meta, 'Moose::Meta::Class');
  29 ok($meta->is_immutable, "class is immutable");
  30 ok($meta->meta->is_mutable, "metaclass is mutable (immutable class)");
  31 TODO: {
  32     local $TODO = "immutable metaclasses with traits do weird things";
  33     is(Class::MOP::class_of($meta), $meta->meta,
  34         "class_of and ->meta are the same on Foo's metaclass (immutable)");
  35     isa_ok(Class::MOP::class_of($meta), 'Moose::Meta::Class');
  36 }