diff options
author | Rafael Kitover <rkitover@cpan.org> | 2010-08-04 23:43:31 -0400 |
---|---|---|
committer | Rafael Kitover <rkitover@cpan.org> | 2010-08-04 23:43:31 -0400 |
commit | bb7cca58bd0aeb53796d1e058082f04077c630cc (patch) | |
tree | db48f46ac0157ef5f7bd09f06fb7e938ebd2d212 /t/03-roles.t | |
parent | 0a64dac6a3376cc92b81b708dbd56f5cc675d050 (diff) | |
download | mx-alwayscoerce-bb7cca58bd0aeb53796d1e058082f04077c630cc.tar.gz mx-alwayscoerce-bb7cca58bd0aeb53796d1e058082f04077c630cc.zip |
support attributes without isa, better tests, release0.09
Diffstat (limited to 't/03-roles.t')
-rw-r--r-- | t/03-roles.t | 41 |
1 files changed, 32 insertions, 9 deletions
diff --git a/t/03-roles.t b/t/03-roles.t index 1dfd692..88c87d6 100644 --- a/t/03-roles.t +++ b/t/03-roles.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 8; +use Test::More tests => 10; use Test::Exception; use Test::NoWarnings; @@ -28,6 +28,10 @@ use Test::NoWarnings; has uncoerced_attr => (is => 'rw', isa => 'Uncoerced'); class_has uncoerced_class_attr => (is => 'rw', isa => 'Uncoerced'); + + has untyped_attr => (is => 'rw'); + + class_has untyped_class_attr => (is => 'rw'); } { @@ -41,10 +45,16 @@ ok( (my $instance = MyClass->new), 'instance' ); { local $TODO = 'waiting on Moose changes for 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'; @@ -52,9 +62,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'; |