5 use Test::More tests => 4;
10 use MooseX::Types::Common::String ( qw( LowerCaseSimpleStr UpperCaseSimpleStr LowerCaseStr UpperCaseStr) );
12 has uppercasesimplestr => ( is => 'rw', isa => UpperCaseSimpleStr, coerce => 1 );
13 has lowercasesimplestr => ( is => 'rw', isa => LowerCaseSimpleStr, coerce => 1 );
14 has uppercasestr => ( is => 'rw', isa => UpperCaseStr, coerce => 1 );
15 has lowercasestr => ( is => 'rw', isa => LowerCaseStr, coerce => 1 );
18 my $ins = FooTest->new({
19 uppercasesimplestr => 'foo',
20 lowercasesimplestr => 'BAR',
21 uppercasestr => 'foo',
22 lowercasestr => 'BAR',
25 is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
26 is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );
28 is( $ins->uppercasestr, 'FOO', 'uppercase str' );
29 is( $ins->lowercasestr, 'bar', 'lowercase str' );