Commit | Line | Data |
9fc566e3 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use Scalar::Util 'blessed'; |
8 | |
9 | do { |
10 | package Foo::Role; |
11 | use Squirrel::Role; |
12 | |
13 | has foo => ( |
14 | isa => "Int", |
15 | is => "rw", |
16 | ); |
17 | |
18 | no Squirrel::Role; |
19 | }; |
20 | |
21 | # note that 'Foo' is defined before this, to prevent Moose being loaded from |
22 | # affecting its definition |
23 | |
24 | BEGIN { |
25 | plan skip_all => "Moose required for this test" unless eval { require Moose }; |
26 | plan tests => 12; |
27 | } |
28 | |
29 | do { |
30 | package Bar::Role; |
31 | use Squirrel::Role; |
32 | |
33 | has foo => ( |
34 | isa => "Int", |
35 | is => "rw", |
36 | ); |
37 | |
38 | no Squirrel::Role; |
39 | }; |
40 | |
41 | ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported"); |
42 | ok(!Bar::Role->can('has'), "Moose::Role::has was unimported"); |
43 | |
44 | eval " |
45 | package Foo::Role; |
46 | use Squirrel::Role; |
47 | |
48 | has bar => (is => 'rw'); |
49 | |
50 | package Bar::Role; |
51 | use Squirrel::Role; |
52 | |
53 | has bar => (is => 'rw'); |
54 | "; |
55 | |
56 | isa_ok(blessed(Foo::Role->meta), 'Mouse::Meta::Role'); |
57 | isa_ok(blessed(Foo::Role->meta), 'Mouse::Meta::Role', 'Squirrel::Role is consistent if Moose was loaded between imports'); |
58 | |
59 | isa_ok(blessed(Bar::Role->meta), 'Moose::Meta::Role'); |
60 | isa_ok(blessed(Bar::Role->meta), 'Moose::Meta::Role'); |
61 | |