t/030_roles/031_roles_applied_in_create.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7 use Test::Exception;
   8 use Moose::Meta::Class;
   9 use Moose::Util;
  10
  11 use lib 't/lib', 'lib';
  12
  13
  14 # Note that this test passes if we inline the role definitions in this
  15 # file, and it passes now that Class::MOP::load_class was changed to
  16 # do eval "require $module" rather than loading the module by
  17 # path. Perl is a strange beast.
  18 lives_ok(
  19     sub {
  20         my $builder_meta = Moose::Meta::Class->create(
  21             'YATTA' => (
  22                 superclass => 'Moose::Meta::Class',
  23                 roles      => [qw( Role::Interface Role::Child )],
  24             )
  25         );
  26     },
  27     'Create a new class with several roles'
  28 );
  29