[gitmo/Mouse.git] / t / 401-meta-role.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;

do {
    package Role;
    use Mouse::Role;

    no Mouse::Role;
};

ok(Role->meta, "Role has a meta");
isa_ok(Role->meta, "Mouse::Meta::Role");

is(Role->meta->name, "Role");
Commit	Line	Data
9ffa533a	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
513854c7	4	use Test::More tests => 3;
9ffa533a	5
	6	do {
	7	package Role;
	8	use Mouse::Role;
	9
	10	no Mouse::Role;
	11	};
	12
	13	ok(Role->meta, "Role has a meta");
	14	isa_ok(Role->meta, "Mouse::Meta::Role");
	15
513854c7	16	is(Role->meta->name, "Role");
513854c7	17