2 use warnings FATAL => 'all';
5 use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
7 use MooseX::Types::Common::String qw(
15 is(to_UpperCaseSimpleStr('foo'), 'FOO', 'uppercase str' );
16 is(to_LowerCaseSimpleStr('BAR'), 'bar', 'lowercase str' );
18 is(to_UpperCaseStr('foo'), 'FOO', 'uppercase str' );
19 is(to_LowerCaseStr('BAR'), 'bar', 'lowercase str' );
21 is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' );