Make coercion work for parameterized types
[gitmo/Mouse.git] / t / 041-enum.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More tests => 16;
5 use Test::Exception;
6
7 do {
8     package Shirt;
9     use Mouse;
10     use Mouse::Util::TypeConstraints 'enum';
11
12     enum 'Size' => qw(small medium large);
13
14     has size => (
15         is  => 'rw',
16         isa => 'Size',
17     );
18
19     package Shirt::Anon;
20     use Mouse;
21     use Mouse::Util::TypeConstraints 'enum';
22
23     has size => (
24         is  => 'rw',
25         isa => enum ['small', 'medium', 'large'],
26     );
27 };
28
29 for my $class ('Shirt', 'Shirt::Anon') {
30     ok($class->new(size => 'small'));
31     ok($class->new(size => 'medium'));
32     ok($class->new(size => 'large'));
33
34     throws_ok { $class->new(size => 'extra small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value extra small/;
35     throws_ok { $class->new(size => 'Small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value Small/;
36     throws_ok { $class->new(size => '') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value /;
37     throws_ok { $class->new(size => 'small ') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value small /;
38     throws_ok { $class->new(size => ' small') } qr/^Attribute \(size\) does not pass the type constraint because: Validation failed for '\S+' failed with value  small/;
39 }
40