[gitmo/Mouse.git] / Moose-t-failing / 030_roles / 038_new_meta_role.t

#!/usr/bin/env perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;
use strict;
use warnings;
use Test::More;
$TODO = q{Mouse is not yet completed};

do {
    package My::Meta::Role;
    use Mouse;
    BEGIN { extends 'Mouse::Meta::Role' };
};

do {
    package My::Role;
    use Mouse::Role -metaclass => 'My::Meta::Role';
};

is(My::Role->meta->meta->name, 'My::Meta::Role');

done_testing;
Commit	Line	Data
c47cf415	1	#!/usr/bin/env 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	use strict;
	6	use warnings;
	7	use Test::More;
	8	$TODO = q{Mouse is not yet completed};
	9
	10	do {
	11	package My::Meta::Role;
	12	use Mouse;
	13	BEGIN { extends 'Mouse::Meta::Role' };
	14	};
	15
	16	do {
	17	package My::Role;
	18	use Mouse::Role -metaclass => 'My::Meta::Role';
	19	};
	20
	21	is(My::Role->meta->meta->name, 'My::Meta::Role');
	22
	23	done_testing;