t/030_roles/031_roles_applied_in_create.t

   1 #!/usr/bin/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
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 use Test::Exception;
  11 use Mouse::Meta::Class;
  12 use Mouse::Util;
  13
  14 use lib 't/lib', 'lib';
  15
  16
  17 # Note that this test passed (pre svn #5543) if we inlined the role
  18 # definitions in this file, as it was very timing sensitive.
  19 lives_ok(
  20     sub {
  21         my $builder_meta = Mouse::Meta::Class->create(
  22             'YATTA' => (
  23                 superclass => 'Mouse::Meta::Class',
  24                 roles      => [qw( Role::Interface Role::Child )],
  25             )
  26         );
  27     },
  28     'Create a new class with several roles'
  29 );
  30
  31 done_testing;