Commit | Line | Data |
a5c9a433 |
1 | use strict; |
eae6c2c4 |
2 | use warnings FATAL => 'all'; |
559b5d74 |
3 | use Test::More tests => 5; |
a5c9a433 |
4 | |
8ee1241a |
5 | use MooseX::Types::Common::String qw( |
559b5d74 |
6 | LowerCaseSimpleStr |
7 | UpperCaseSimpleStr |
8 | LowerCaseStr |
9 | UpperCaseStr |
8ee1241a |
10 | NumericCode |
11 | ); |
a5c9a433 |
12 | |
8ee1241a |
13 | is(to_UpperCaseSimpleStr('foo'), 'FOO', 'uppercase str' ); |
14 | is(to_LowerCaseSimpleStr('BAR'), 'bar', 'lowercase str' ); |
a5c9a433 |
15 | |
8ee1241a |
16 | is(to_UpperCaseStr('foo'), 'FOO', 'uppercase str' ); |
17 | is(to_LowerCaseStr('BAR'), 'bar', 'lowercase str' ); |
a5c9a433 |
18 | |
8ee1241a |
19 | is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' ); |