t/04-coerce.t

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