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