use strict;
use warnings FATAL => 'all';
-use Test::More tests => 5;
-{
- package FooTest;
- use Moose;
- use MooseX::Types::Common::String ( qw(
+use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
+
+use MooseX::Types::Common::String qw(
LowerCaseSimpleStr
UpperCaseSimpleStr
LowerCaseStr
UpperCaseStr
- NumericCode
- ) );
-
- has uppercasesimplestr => ( is => 'rw', isa => UpperCaseSimpleStr, coerce => 1 );
- has lowercasesimplestr => ( is => 'rw', isa => LowerCaseSimpleStr, coerce => 1 );
- has uppercasestr => ( is => 'rw', isa => UpperCaseStr, coerce => 1 );
- has lowercasestr => ( is => 'rw', isa => LowerCaseStr, coerce => 1 );
- has numericcode => ( is => 'rw', isa => NumericCode, coerce => 1 );
-}
+ NumericCode
+);
-my $ins = FooTest->new({
- uppercasesimplestr => 'foo',
- lowercasesimplestr => 'BAR',
- uppercasestr => 'foo',
- lowercasestr => 'BAR',
- numericcode => '4111-1111-1111-1111',
-});
+is(to_UpperCaseSimpleStr('foo'), 'FOO', 'uppercase str' );
+is(to_LowerCaseSimpleStr('BAR'), 'bar', 'lowercase str' );
-is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
-is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );
+is(to_UpperCaseStr('foo'), 'FOO', 'uppercase str' );
+is(to_LowerCaseStr('BAR'), 'bar', 'lowercase str' );
-is( $ins->uppercasestr, 'FOO', 'uppercase str' );
-is( $ins->lowercasestr, 'bar', 'lowercase str' );
+is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' );
-is( $ins->numericcode, '4111111111111111', 'numeric code' );
+done_testing;