RT #74346

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

diff --git a/t/04-coerce.t b/t/04-coerce.t
index 4ad1f98..b454a7b 100644 (file)
--- a/t/04-coerce.t
+++ b/t/04-coerce.t
@@ -2,17 +2,24 @@
 
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 {
   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 );
+  has numericcode  => ( is => 'rw', isa => NumericCode,  coerce => 1 );
 }
 
 my $ins = FooTest->new({
@@ -20,6 +27,7 @@ my $ins = FooTest->new({
   lowercasesimplestr => 'BAR',
   uppercasestr => 'foo',
   lowercasestr => 'BAR',
+  numericcode  => '4111-1111-1111-1111',
 });
 
 is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
@@ -27,3 +35,5 @@ is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );
 
 is( $ins->uppercasestr, 'FOO', 'uppercase str' );
 is( $ins->lowercasestr, 'bar', 'lowercase str' );
+
+is( $ins->numericcode, '4111111111111111', 'numeric code' );