2 use warnings FATAL => 'all';
3 use Test::More tests => 5;
8 use MooseX::Types::Common::String ( qw(
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 );
20 has numericcode => ( is => 'rw', isa => NumericCode, coerce => 1 );
23 my $ins = FooTest->new({
24 uppercasesimplestr => 'foo',
25 lowercasesimplestr => 'BAR',
26 uppercasestr => 'foo',
27 lowercasestr => 'BAR',
28 numericcode => '4111-1111-1111-1111',
31 is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
32 is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );
34 is( $ins->uppercasestr, 'FOO', 'uppercase str' );
35 is( $ins->lowercasestr, 'bar', 'lowercase str' );
37 is( $ins->numericcode, '4111111111111111', 'numeric code' );