diff options
Diffstat (limited to 't/01-basic.t')
| -rw-r--r-- | t/01-basic.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 5b57cf8..e15c758 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 3; +use Test::More tests => 4; { package MyClass; @@ -16,6 +16,8 @@ use Test::More tests => 3; has foo => (is => 'rw', isa => 'MyType'); class_has bar => (is => 'rw', isa => 'MyType'); + + class_has baz => (is => 'rw', isa => 'MyType', coerce => 0); } ok( (my $instance = MyClass->new), 'instance' ); @@ -25,3 +27,6 @@ ok( (!$@), 'attribute coercion ran' ); eval { $instance->bar('baz') }; ok( (!$@), 'class attribute coercion ran' ); + +eval { $instance->baz('quux') }; +ok( $@, 'class attribute coercion did not run with coerce => 0' ); |