Ignore "used only once" warning
[gitmo/Mouse.git] / t / 401-meta-role.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More tests => 5;
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
16 is(Role->meta->name, "Role");
17
18 ok(!Role->meta->has_attribute('attr'), "Role doesn't have attr attribute yet");
19
20 do {
21     package Role;
22     use Mouse::Role;
23
24     has 'attr';
25
26     no Mouse::Role;
27 };
28
29 ok(Role->meta->has_attribute('attr'), "Role has an attr now");