[gitmo/Mouse.git] / t / 030_roles / 031_roles_applied_in_create.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;
use Test::Exception;
use Mouse::Meta::Class;
use Mouse::Util;

use lib 't/lib', 'lib';


# Note that this test passed (pre svn #5543) if we inlined the role
# definitions in this file, as it was very timing sensitive.
lives_ok(
    sub {
        my $builder_meta = Mouse::Meta::Class->create(
            'YATTA' => (
                superclass => 'Mouse::Meta::Class',
                roles      => [qw( Role::Interface Role::Child )],
            )
        );
    },
    'Create a new class with several roles'
);
Commit	Line	Data
67199842	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