From f327aa7a233f5405a5255d22abf1a5744c990eed Mon Sep 17 00:00:00 2001 From: Rafael Kitover Date: Tue, 16 Jun 2009 11:01:56 -0700 Subject: add test for has with coerce => 0 --- t/01-basic.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 't') 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' ); -- cgit v1.2.3-54-g00ecf