X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F019_attribute_lazy_initializer.t;h=06f631f127538c1ec6391ecc3dcd7016d32dd882;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=ef6d0c814a6af428ebe49b87451e4fa55bdad3e1;hpb=9df136d0ec3963a967e8ac7fdfacffa3e0d50cd9;p=gitmo%2FMoose.git diff --git a/t/020_attributes/019_attribute_lazy_initializer.t b/t/020_attributes/019_attribute_lazy_initializer.t index ef6d0c8..06f631f 100644 --- a/t/020_attributes/019_attribute_lazy_initializer.t +++ b/t/020_attributes/019_attribute_lazy_initializer.t @@ -3,26 +3,24 @@ use strict; use warnings; -use Test::More tests => 21; +use Test::More tests => 23; use Test::Exception; -BEGIN { - use_ok('Moose'); -} + { package Foo; use Moose; - + has 'foo' => ( reader => 'get_foo', writer => 'set_foo', initializer => sub { my ($self, $value, $callback, $attr) = @_; - + ::isa_ok($attr, 'Moose::Meta::Attribute'); ::is($attr->name, 'foo', '... got the right name'); - + $callback->($value * 2); }, ); @@ -33,14 +31,14 @@ BEGIN { default => 10, initializer => sub { my ($self, $value, $callback, $attr) = @_; - + ::isa_ok($attr, 'Moose::Meta::Attribute'); - ::is($attr->name, 'lazy_foo', '... got the right name'); - + ::is($attr->name, 'lazy_foo', '... got the right name'); + $callback->($value * 2); }, ); - + has 'lazy_foo_w_type' => ( reader => 'get_lazy_foo_w_type', isa => 'Int', @@ -48,42 +46,43 @@ BEGIN { default => 20, initializer => sub { my ($self, $value, $callback, $attr) = @_; - + ::isa_ok($attr, 'Moose::Meta::Attribute'); - ::is($attr->name, 'lazy_foo_w_type', '... got the right name'); - + ::is($attr->name, 'lazy_foo_w_type', '... got the right name'); + $callback->($value * 2); }, - ); - + ); + has 'lazy_foo_builder' => ( reader => 'get_lazy_foo_builder', builder => 'get_foo_builder', initializer => sub { my ($self, $value, $callback, $attr) = @_; - + ::isa_ok($attr, 'Moose::Meta::Attribute'); - ::is($attr->name, 'lazy_foo_builder', '... got the right name'); - + ::is($attr->name, 'lazy_foo_builder', '... got the right name'); + $callback->($value * 2); }, ); - + has 'lazy_foo_builder_w_type' => ( reader => 'get_lazy_foo_builder_w_type', + isa => 'Int', builder => 'get_foo_builder_w_type', initializer => sub { my ($self, $value, $callback, $attr) = @_; - + ::isa_ok($attr, 'Moose::Meta::Attribute'); - ::is($attr->name, 'lazy_foo_builder_w_type', '... got the right name'); - + ::is($attr->name, 'lazy_foo_builder_w_type', '... got the right name'); + $callback->($value * 2); }, ); - - sub get_foo_builder { 100 } - sub get_foo_builder_w_type { 1000 } + + sub get_foo_builder { 100 } + sub get_foo_builder_w_type { 1000 } } { @@ -94,38 +93,58 @@ BEGIN { is($foo->get_lazy_foo, 20, 'initial lazy value set to 2x given value'); is($foo->get_lazy_foo_w_type, 40, 'initial lazy value with type set to 2x given value'); is($foo->get_lazy_foo_builder, 200, 'initial lazy value with builder set to 2x given value'); - is($foo->get_lazy_foo_builder_w_type, 2000, 'initial lazy value with builder and type set to 2x given value'); + is($foo->get_lazy_foo_builder_w_type, 2000, 'initial lazy value with builder and type set to 2x given value'); } { package Bar; use Moose; - + has 'foo' => ( reader => 'get_foo', writer => 'set_foo', initializer => sub { my ($self, $value, $callback, $attr) = @_; - + ::isa_ok($attr, 'Moose::Meta::Attribute'); ::is($attr->name, 'foo', '... got the right name'); - + $callback->($value * 2); }, - ); - - make_immutable; + ); + + __PACKAGE__->meta->make_immutable; } { my $bar = Bar->new(foo => 10); isa_ok($bar, 'Bar'); - is($bar->get_foo, 20, 'initial value set to 2x given value'); + is($bar->get_foo, 20, 'initial value set to 2x given value'); } +{ + package Fail::Bar; + use Moose; + + has 'foo' => ( + reader => 'get_foo', + writer => 'set_foo', + isa => 'Int', + initializer => sub { + my ($self, $value, $callback, $attr) = @_; + ::isa_ok($attr, 'Moose::Meta::Attribute'); + ::is($attr->name, 'foo', '... got the right name'); + $callback->("Hello $value World"); + }, + ); + __PACKAGE__->meta->make_immutable; +} +dies_ok { + Fail::Bar->new(foo => 10) +} '... this fails, because initializer returns a bad type';