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 file.
  15 lives_ok(
  16     sub {
  17         my $builder_meta = Moose::Meta::Class->create(
  18             'YATTA' => (
  19                 superclass => 'Moose::Meta::Class',
  20                 roles      => [qw( Role::Interface Role::Child )],
  21             )
  22         );
  23     },
  24     'Create a new class with several roles'
  25 );
  26