Commit | Line | Data |
1791ba32 |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
4 | # Compile-time exceptions, so need stringy eval; hence not Test::Fatal. |
5 | { |
88862a82 |
6 | local $@; |
c3736593 |
7 | ok !eval q { package ZZZ; use Role::Tiny; use Moo; 1; }, |
8 | "can't import Moo into a Role::Tiny role"; |
9 | like $@, qr{Cannot import Moo into a role}, |
10 | " ... with correct error message"; |
1791ba32 |
11 | } |
12 | |
13 | { |
88862a82 |
14 | local $@; |
c3736593 |
15 | ok !eval q { package XXX; use Moo; use Moo::Role; 1; }, |
16 | "can't import Moo::Role into a Moo class"; |
17 | like $@, qr{Cannot import Moo::Role into a Moo class}, |
18 | " ... with correct error message"; |
19 | } |
20 | |
21 | { |
22 | local $@; |
23 | ok !eval q { package YYY; use Moo::Role; use Moo; 1; }, |
24 | "can't import Moo into a Moo role"; |
25 | like $@, qr{Cannot import Moo into a role}, |
26 | " ... with correct error message"; |
1791ba32 |
27 | } |
28 | |
29 | done_testing; |