t/300_immutable/014_immutable_metaclass_with_traits.t

   1 #!/usr/bin/env 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 use strict;
   6 use warnings;
   7 use Test::More;
   8 $TODO = q{Mouse is not yet completed};
   9
  10 {
  11     package FooTrait;
  12     use Mouse::Role;
  13 }
  14 {
  15     package Foo;
  16     use Mouse -traits => ['FooTrait'];
  17 }
  18
  19 is(Mouse::Util::class_of('Foo'), Foo->meta,
  20     "class_of and ->meta are the same on Foo");
  21 my $meta = Foo->meta;
  22 is(Mouse::Util::class_of($meta), $meta->meta,
  23     "class_of and ->meta are the same on Foo's metaclass");
  24 isa_ok(Mouse::Util::class_of($meta), 'Mouse::Meta::Class');
  25 isa_ok($meta->meta, 'Mouse::Meta::Class');
  26 ok($meta->is_mutable, "class is mutable");
  27 ok(Mouse::Util::class_of($meta)->is_mutable, "metaclass is mutable");
  28 ok($meta->meta->does_role('FooTrait'), "does the trait");
  29 Foo->meta->make_immutable;
  30 is(Mouse::Util::class_of('Foo'), Foo->meta,
  31     "class_of and ->meta are the same on Foo (immutable)");
  32 $meta = Foo->meta;
  33 isa_ok($meta->meta, 'Mouse::Meta::Class');
  34 ok($meta->is_immutable, "class is immutable");
  35 ok($meta->meta->is_immutable, "metaclass is immutable (immutable class)");
  36 is(Mouse::Util::class_of($meta), $meta->meta,
  37     "class_of and ->meta are the same on Foo's metaclass (immutable)");
  38 isa_ok(Mouse::Util::class_of($meta), 'Mouse::Meta::Class');
  39 ok($meta->meta->does_role('FooTrait'), "still does the trait after immutable");
  40
  41 done_testing;