Commit | Line | Data |
32726d88 |
1 | use strict; |
2 | use warnings; |
3 | |
2ffa7b60 |
4 | use Test::More tests => 6; |
32726d88 |
5 | |
6 | |
7 | { |
8 | package Standard; |
9 | |
10 | use Moose; |
11 | |
12 | has 'thing' => ( is => 'rw' ); |
13 | } |
14 | |
15 | { |
16 | package Stricter; |
17 | |
18 | use MooseX::StrictConstructor; |
19 | |
20 | has 'thing' => ( is => 'rw' ); |
21 | } |
22 | |
23 | { |
2ffa7b60 |
24 | package Subclass; |
25 | |
26 | use MooseX::StrictConstructor; |
27 | |
28 | extends 'Stricter'; |
29 | |
30 | has 'size' => ( is => 'rw' ); |
31 | } |
32 | |
33 | { |
32726d88 |
34 | package Tricky; |
35 | |
36 | use MooseX::StrictConstructor; |
37 | |
38 | has 'thing' => ( is => 'rw' ); |
39 | |
40 | sub BUILD |
41 | { |
42 | my $self = shift; |
43 | my $params = shift; |
44 | |
45 | delete $params->{spy}; |
46 | } |
47 | } |
48 | |
49 | |
50 | eval { Standard->new( thing => 1, bad => 99 ) }; |
51 | is( $@, '', 'standard Moose class ignores unknown params' ); |
52 | |
53 | eval { Stricter->new( thing => 1, bad => 99 ) }; |
54 | like( $@, qr/unknown attribute.+: bad/, 'strict constructor blows up on unknown params' ); |
55 | |
56 | eval { Tricky->new( thing => 1, spy => 99 ) }; |
57 | is( $@, '', 'can work around strict constructor by deleting params in BUILD()' ); |
58 | |
59 | eval { Tricky->new( thing => 1, agent => 99 ) }; |
60 | like( $@, qr/unknown attribute.+: agent/, 'Tricky still blows up on unknown params other than spy' ); |
2ffa7b60 |
61 | |
62 | eval { Subclass->new( thing => 1, bad => 99 ) }; |
63 | like( $@, qr/unknown attribute.+: bad/, 'subclass constructor blows up on unknown params' ); |
64 | |
65 | eval { Subclass->new( thing => 1, size => 'large' ) }; |
66 | is( $@, '', 'subclass constructor handles known attributes correctly' ); |