Commit | Line | Data |
f7d12678 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 4; |
5 | use Test::Exception; |
6 | |
7 | do { |
8 | package MyRole; |
9 | use MooseX::Role::Parameterized; |
10 | |
11 | ::throws_ok { |
12 | parameter 'alias'; |
13 | } qr/^The parameter name \(alias\) is currently forbidden/; |
14 | |
15 | ::throws_ok { |
16 | parameter 'excludes'; |
17 | } qr/^The parameter name \(excludes\) is currently forbidden/; |
18 | }; |
19 | |
20 | do { |
21 | package MyClass; |
22 | use MooseX::Role::Parameterized; |
23 | |
24 | ::throws_ok { |
25 | with MyRole => { |
26 | alias => 1, |
27 | }; |
28 | } qr/^The parameter name \(alias\) is currently forbidden/; |
29 | |
30 | ::throws_ok { |
31 | with MyRole => { |
32 | excludes => 1, |
33 | }; |
34 | } qr/^The parameter name \(excludes\) is currently forbidden/; |
35 | }; |
36 | |