t/roles/roles_applied_in_create.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Fatal;
   8 use Moose::Meta::Class;
   9 use Moose::Util;
  10
  11 use lib 't/lib', 'lib';
  12
  13
  14 # Note that this test passed (pre svn #5543) if we inlined the role
  15 # definitions in this file, as it was very timing sensitive.
  16 is( exception {
  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 }, undef, 'Create a new class with several roles' );
  24
  25 done_testing;