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/01-basic.t | |
parent | 0a64dac6a3376cc92b81b708dbd56f5cc675d050 (diff) | |
download | mx-alwayscoerce-e54ac054391b59a1bd9881762c43449c9c6776f6.tar.gz mx-alwayscoerce-e54ac054391b59a1bd9881762c43449c9c6776f6.zip |
support attributes without isa, better tests, release0.09
Diffstat (limited to 't/01-basic.t')
-rw-r--r-- | t/01-basic.t | 38 |
1 files changed, 30 insertions, 8 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index f6d017f..fee6ece 100644 --- a/t/01-basic.t +++ b/t/01-basic.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; @@ -29,14 +29,22 @@ use Test::NoWarnings; class_has uncoerced_class_attr => (is => 'rw', isa => 'Uncoerced'); + has untyped_attr => (is => 'rw'); + class_has untyped_class_attr => (is => 'rw'); } ok( (my $instance = MyClass->new), 'instance' ); -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'; @@ -44,8 +52,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'; |