t/04-coerce.t

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 4;
   6
   7 {
   8   package FooTest;
   9   use Moose;
  10   use MooseX::Types::Common::String ( qw( LowerCaseSimpleStr UpperCaseSimpleStr LowerCaseStr UpperCaseStr) );
  11
  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 );
  16 }
  17
  18 my $ins = FooTest->new({
  19   uppercasesimplestr => 'foo',
  20   lowercasesimplestr => 'BAR',
  21   uppercasestr => 'foo',
  22   lowercasestr => 'BAR',
  23 });
  24
  25 is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
  26 is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );
  27
  28 is( $ins->uppercasestr, 'FOO', 'uppercase str' );
  29 is( $ins->lowercasestr, 'bar', 'lowercase str' );