aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Kitover <rkitover@cpan.org>2009-06-16 11:01:56 -0700
committerRafael Kitover <rkitover@cpan.org>2009-06-16 11:01:56 -0700
commitf327aa7a233f5405a5255d22abf1a5744c990eed (patch)
tree6bd13a44d44b84c0f48078fe44a8d0d2ce450c24
parent68bf846396d0d008ef6476ee1f080dc6388dda36 (diff)
downloadmx-alwayscoerce-f327aa7a233f5405a5255d22abf1a5744c990eed.tar.gz
mx-alwayscoerce-f327aa7a233f5405a5255d22abf1a5744c990eed.zip
add test for has with coerce => 0
-rw-r--r--t/01-basic.t9
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' );