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