diff options
Diffstat (limited to 't')
-rw-r--r-- | t/01-basic.t | 3 | ||||
-rw-r--r-- | t/02-mx-m-s.t | 6 | ||||
-rw-r--r-- | t/03-roles.t | 56 |
3 files changed, 62 insertions, 3 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 3d2e365..b203699 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -2,8 +2,9 @@ use strict; use warnings; -use Test::More tests => 7; +use Test::More tests => 8; use Test::Exception; +use Test::NoWarnings; { package MyClass; diff --git a/t/02-mx-m-s.t b/t/02-mx-m-s.t index c79c947..e79bac8 100644 --- a/t/02-mx-m-s.t +++ b/t/02-mx-m-s.t @@ -3,16 +3,18 @@ use strict; use warnings; use Test::More; -use Test::Exception; BEGIN { if (eval { require MooseX::Method::Signatures }) { - plan tests => 2; + plan tests => 3; } else { plan skip_all => 'This test needs MooseX::Method::Signatures'; } } +use Test::Exception; +use Test::NoWarnings; + { package MyClass; use Moose; diff --git a/t/03-roles.t b/t/03-roles.t new file mode 100644 index 0000000..ed83fa9 --- /dev/null +++ b/t/03-roles.t @@ -0,0 +1,56 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use Test::More tests => 8; +use Test::Exception; +use Test::NoWarnings; + +{ + package MyRole; + use Moose::Role; + use MooseX::AlwaysCoerce; + use Moose::Util::TypeConstraints; + + subtype 'MyType', as 'Int'; + coerce 'MyType', from 'Str', via { length $_ }; + + subtype 'Uncoerced', as 'Int'; + + has foo => (is => 'rw', isa => 'MyType'); + + class_has bar => (is => 'rw', isa => 'MyType'); + + class_has baz => (is => 'rw', isa => 'MyType', coerce => 0); + + has quux => (is => 'rw', isa => 'MyType', coerce => 0); + + has uncoerced_attr => (is => 'rw', isa => 'Uncoerced'); + + class_has uncoerced_class_attr => (is => 'rw', isa => 'Uncoerced'); +} + +{ + package MyClass; + use Moose; + with 'MyRole'; +} + +ok( (my $instance = MyClass->new), 'instance' ); + +lives_ok { $instance->foo('bar') } 'attribute coercion ran'; + +lives_ok { $instance->bar('baz') } 'class attribute coercion ran'; + +dies_ok { $instance->baz('quux') } + 'class attribute coercion did not run with coerce => 0'; + +dies_ok { $instance->quux('mtfnpy') } + 'attribute coercion did not run with coerce => 0'; + +lives_ok { $instance->uncoerced_attr(10) } + 'set attribute having type with no coercion and no coerce=0'; + +lives_ok { $instance->uncoerced_class_attr(10) } + 'set class attribute having type with no coercion and no coerce=0'; + |