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;
   7 use Test::Exception;
   8 use Moose::Meta::Class;
   9 use Moose::Util;
  10
  11 use lib 't/lib', 'lib';
  12
  13 plan tests => 1;
  14
  15 my $builder_meta = Moose::Meta::Class->create(
  16     'YATTA' => (
  17         superclass => 'Moose::Meta::Class',
  18         roles      => [ qw( Role::Interface Role::Child ) ],
  19     )
  20 );
  21
  22 ok 1;
  23