remove needless use of moose attributes when testing

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

diff --git a/t/04-coerce.t b/t/04-coerce.t
index 3c46c41..8560e6d 100644 (file)
--- a/t/04-coerce.t
+++ b/t/04-coerce.t
@@ -2,36 +2,18 @@ use strict;
 use warnings FATAL => 'all';
 use Test::More tests => 5;
 
-{
-  package FooTest;
-  use Moose;
-  use MooseX::Types::Common::String ( qw(
+use MooseX::Types::Common::String qw(
     LowerCaseSimpleStr
     UpperCaseSimpleStr
     LowerCaseStr
     UpperCaseStr
-       NumericCode
-  ) );
+    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 );
-}
+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',
-  numericcode  => '4111-1111-1111-1111',
-});
+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( $ins->uppercasestr, 'FOO', 'uppercase str' );
-is( $ins->lowercasestr, 'bar', 'lowercase str' );
-
-is( $ins->numericcode, '4111111111111111', 'numeric code' );
+is(to_NumericCode('4111-1111-1111-1111'), '4111111111111111', 'numeric code' );