diff options
author | Rafael Kitover <rkitover@cpan.org> | 2009-06-16 11:01:56 -0700 |
---|---|---|
committer | Rafael Kitover <rkitover@cpan.org> | 2009-06-16 11:01:56 -0700 |
commit | f327aa7a233f5405a5255d22abf1a5744c990eed (patch) | |
tree | 6bd13a44d44b84c0f48078fe44a8d0d2ce450c24 | |
parent | 68bf846396d0d008ef6476ee1f080dc6388dda36 (diff) | |
download | mx-alwayscoerce-f327aa7a233f5405a5255d22abf1a5744c990eed.tar.gz mx-alwayscoerce-f327aa7a233f5405a5255d22abf1a5744c990eed.zip |
add test for has with coerce => 0
-rw-r--r-- | t/01-basic.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index e15c758..b3643e5 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 4; +use Test::More tests => 5; { package MyClass; @@ -18,6 +18,8 @@ use Test::More tests => 4; class_has bar => (is => 'rw', isa => 'MyType'); class_has baz => (is => 'rw', isa => 'MyType', coerce => 0); + + has quux => (is => 'rw', isa => 'MyType', coerce => 0); } ok( (my $instance = MyClass->new), 'instance' ); @@ -30,3 +32,8 @@ ok( (!$@), 'class attribute coercion ran' ); eval { $instance->baz('quux') }; ok( $@, 'class attribute coercion did not run with coerce => 0' ); + +undef $@; + +eval { $instance->quux('mtfnpy') }; +ok( $@, 'attribute coercion did not run with coerce => 0' ); |