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

#! /usr/bin/perl -w

use strict;
use warnings;
use Test::More tests => 4;

{
  package FooTest;
  use Moose;
  use MooseX::Types::Common::String ( qw( LowerCaseSimpleStr UpperCaseSimpleStr LowerCaseStr UpperCaseStr) );

  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 );
}

my $ins = FooTest->new({
  uppercasesimplestr => 'foo',
  lowercasesimplestr => 'BAR',
  uppercasestr => 'foo',
  lowercasestr => 'BAR',
});

is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
is( $ins->lowercasesimplestr, 'bar', 'lowercase str' );

is( $ins->uppercasestr, 'FOO', 'uppercase str' );
is( $ins->lowercasestr, 'bar', 'lowercase str' );
Commit	Line	Data
a5c9a433	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' );