d06235f2ce8fa6159ef48b606974d0171b8605eb
[gitmo/MooseX-StrictConstructor.git] / t / basic.t
1 use strict;
2 use warnings;
3
4 use Test::More tests => 6;
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 {
24     package Subclass;
25
26     use MooseX::StrictConstructor;
27
28     extends 'Stricter';
29
30     has 'size' => ( is => 'rw' );
31 }
32
33 {
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' );
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' );