Commit | Line | Data |
a5c9a433 |
1 | use strict; |
eae6c2c4 |
2 | use warnings FATAL => 'all'; |
559b5d74 |
3 | use Test::More tests => 5; |
a5c9a433 |
4 | |
5 | { |
6 | package FooTest; |
7 | use Moose; |
559b5d74 |
8 | use MooseX::Types::Common::String ( qw( |
9 | LowerCaseSimpleStr |
10 | UpperCaseSimpleStr |
11 | LowerCaseStr |
12 | UpperCaseStr |
13 | NumericCode |
14 | ) ); |
a5c9a433 |
15 | |
16 | has uppercasesimplestr => ( is => 'rw', isa => UpperCaseSimpleStr, coerce => 1 ); |
17 | has lowercasesimplestr => ( is => 'rw', isa => LowerCaseSimpleStr, coerce => 1 ); |
18 | has uppercasestr => ( is => 'rw', isa => UpperCaseStr, coerce => 1 ); |
19 | has lowercasestr => ( is => 'rw', isa => LowerCaseStr, coerce => 1 ); |
559b5d74 |
20 | has numericcode => ( is => 'rw', isa => NumericCode, coerce => 1 ); |
a5c9a433 |
21 | } |
22 | |
23 | my $ins = FooTest->new({ |
24 | uppercasesimplestr => 'foo', |
25 | lowercasesimplestr => 'BAR', |
26 | uppercasestr => 'foo', |
27 | lowercasestr => 'BAR', |
559b5d74 |
28 | numericcode => '4111-1111-1111-1111', |
a5c9a433 |
29 | }); |
30 | |
31 | is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' ); |
32 | is( $ins->lowercasesimplestr, 'bar', 'lowercase str' ); |
33 | |
34 | is( $ins->uppercasestr, 'FOO', 'uppercase str' ); |
35 | is( $ins->lowercasestr, 'bar', 'lowercase str' ); |
559b5d74 |
36 | |
37 | is( $ins->numericcode, '4111111111111111', 'numeric code' ); |