Commit | Line | Data |
b71d68ed |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | |
8 | BEGIN { |
9 | eval "use Declare::Constraints::Simple;"; |
10 | plan skip_all => "Declare::Constraints::Simple is required for this test" if $@; |
11 | plan tests => 11; |
12 | } |
13 | |
14 | use Test::Exception; |
15 | |
16 | BEGIN { |
17 | use_ok('Moose'); |
18 | use_ok('Moose::Util::TypeConstraints'); |
19 | } |
20 | |
21 | { |
22 | package Foo; |
23 | use Moose; |
24 | use Moose::Util::TypeConstraints; |
25 | use Declare::Constraints::Simple -All; |
26 | |
27 | # define your own type ... |
28 | type 'HashOfArrayOfObjects' |
29 | => IsHashRef( |
30 | -keys => HasLength, |
31 | -values => IsArrayRef( IsObject )); |
32 | |
33 | has 'bar' => ( |
34 | is => 'rw', |
35 | isa => 'HashOfArrayOfObjects', |
36 | ); |
37 | |
38 | # inline the constraints as anon-subtypes |
39 | has 'baz' => ( |
40 | is => 'rw', |
41 | isa => subtype('ArrayRef' => IsArrayRef(IsInt)), |
42 | ); |
43 | |
44 | package Bar; |
45 | use Moose; |
46 | } |
47 | |
48 | my $hash_of_arrays_of_objs = { |
49 | foo1 => [ Bar->new ], |
50 | foo2 => [ Bar->new, Bar->new ], |
51 | }; |
52 | |
53 | my $array_of_ints = [ 1 .. 10 ]; |
54 | |
55 | my $foo; |
56 | lives_ok { |
57 | $foo = Foo->new( |
58 | 'bar' => $hash_of_arrays_of_objs, |
59 | 'baz' => $array_of_ints, |
60 | ); |
61 | } '... construction succeeded'; |
62 | isa_ok($foo, 'Foo'); |
63 | |
64 | is_deeply($foo->bar, $hash_of_arrays_of_objs, '... got our value correctly'); |
65 | is_deeply($foo->baz, $array_of_ints, '... got our value correctly'); |
66 | |
67 | dies_ok { |
68 | $foo->bar([]); |
69 | } '... validation failed correctly'; |
70 | |
71 | dies_ok { |
72 | $foo->bar({ foo => 3 }); |
73 | } '... validation failed correctly'; |
74 | |
75 | dies_ok { |
76 | $foo->bar({ foo => [ 1, 2, 3 ] }); |
77 | } '... validation failed correctly'; |
78 | |
79 | dies_ok { |
80 | $foo->baz([ "foo" ]); |
81 | } '... validation failed correctly'; |
82 | |
83 | dies_ok { |
84 | $foo->baz({}); |
85 | } '... validation failed correctly'; |
86 | |
87 | |
88 | |
89 | |
90 | |
91 | |
92 | |