empty commit for contributors metadata (re RT#84547)

[gitmo/MooseX-Types-Common.git] / t / 04-coerce.t

diff --git a/t/04-coerce.t b/t/04-coerce.t
index 4ad1f98..d44c6e4 100644 (file)
--- a/t/04-coerce.t
+++ b/t/04-coerce.t
@@ -1,29 +1,23 @@
-#! /usr/bin/perl -w
-
 use strict;
-use warnings;
-use Test::More tests => 4;
+use warnings FATAL => 'all';
+
+use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 
-{
-  package FooTest;
-  use Moose;
-  use MooseX::Types::Common::String ( qw( LowerCaseSimpleStr UpperCaseSimpleStr LowerCaseStr UpperCaseStr) );
+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 );
-}
+is(to_UpperCaseSimpleStr('foo'), 'FOO', 'uppercase str' );
+is(to_LowerCaseSimpleStr('BAR'), 'bar', 'lowercase str' );
 
-my $ins = FooTest->new({
-  uppercasesimplestr => 'foo',
-  lowercasesimplestr => 'BAR',
-  uppercasestr => 'foo',
-  lowercasestr => 'BAR',
-});
+is(to_UpperCaseStr('foo'), 'FOO', 'uppercase str' );
+is(to_LowerCaseStr('BAR'), 'bar', 'lowercase str' );
 
-is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
-is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );
+is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' );
 
-is( $ins->uppercasestr, 'FOO', 'uppercase str' );
-is( $ins->lowercasestr, 'bar', 'lowercase str' );
+done_testing;