diff options
Diffstat (limited to 't/04-parameterized-roles.t')
-rw-r--r-- | t/04-parameterized-roles.t | 40 |
1 files changed, 32 insertions, 8 deletions
diff --git a/t/04-parameterized-roles.t b/t/04-parameterized-roles.t index ab8b541..d735cdd 100644 --- a/t/04-parameterized-roles.t +++ b/t/04-parameterized-roles.t @@ -35,6 +35,10 @@ eval <<'EOF'; class_has uncoerced_class_attr => (is => 'rw', isa => 'Uncoerced'); + has untyped_attr => (is => 'rw'); + + class_has untyped_class_attr => (is => 'rw'); + package Foo; use Moose; with 'Role'; @@ -45,7 +49,7 @@ if ($@) { 'MooseX::ClassAttribute is currently incompatible with MooseX::Role::Parameterized'; } -plan tests => 8; +plan tests => 10; eval 'use Test::NoWarnings'; @@ -54,10 +58,16 @@ ok( (my $instance = MyClass->new), 'instance' ); { local $TODO = 'waiting on Moose changes for role support, and ClassAttribute changes for paramterized role support'; - lives_ok { $instance->foo('bar') } 'attribute coercion ran'; + lives_and { + $instance->foo('bar'); + is $instance->foo, 3; + } 'attribute coercion ran'; } -lives_ok { $instance->bar('baz') } 'class attribute coercion ran'; +lives_and { + $instance->bar('baz'); + is $instance->bar, 3; +} 'class attribute coercion ran'; dies_ok { $instance->baz('quux') } 'class attribute coercion did not run with coerce => 0'; @@ -65,8 +75,22 @@ dies_ok { $instance->baz('quux') } 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'; +lives_and { + $instance->uncoerced_attr(10); + is $instance->uncoerced_attr(10), 10; +} 'set attribute having type with no coercion and no coerce=0'; + +lives_and { + $instance->uncoerced_class_attr(10); + is $instance->uncoerced_class_attr(10), 10; +} 'set class attribute having type with no coercion and no coerce=0'; + +lives_and { + $instance->untyped_attr(10); + is $instance->untyped_attr, 10; +} 'set untyped attribute'; + +lives_and { + $instance->untyped_class_attr(10); + is $instance->untyped_class_attr, 10; +} 'set untyped class attribute'; |