t/030_attribute_reader_generation.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 14;
   7 use Test::Exception;
   8
   9 BEGIN {
  10     use_ok('Moose');
  11 }
  12
  13 {
  14     package Foo;
  15     use Moose;
  16
  17     eval {
  18         has 'foo' => (
  19             reader => 'get_foo'
  20         );
  21     };
  22     ::ok(!$@, '... created the reader method okay');
  23
  24     eval {
  25         has 'lazy_foo' => (
  26             reader => 'get_lazy_foo',
  27             lazy => 1,
  28             default => sub { 10 }
  29         );
  30     };
  31     ::ok(!$@, '... created the lazy reader method okay') or warn $@;
  32 }
  33
  34 {
  35     my $foo = Foo->new;
  36     isa_ok($foo, 'Foo');
  37
  38     can_ok($foo, 'get_foo');
  39     is($foo->get_foo(), undef, '... got an undefined value');
  40     dies_ok {
  41         $foo->get_foo(100);
  42     } '... get_foo is a read-only';
  43
  44     ok(!exists($foo->{lazy_foo}), '... no value in get_lazy_foo slot');
  45
  46     can_ok($foo, 'get_lazy_foo');
  47     is($foo->get_lazy_foo(), 10, '... got an deferred value');
  48     dies_ok {
  49         $foo->get_lazy_foo(100);
  50     } '... get_lazy_foo is a read-only';
  51 }
  52
  53 {
  54     my $foo = Foo->new(foo => 10, lazy_foo => 100);
  55     isa_ok($foo, 'Foo');
  56
  57     is($foo->get_foo(), 10, '... got the correct value');
  58     is($foo->get_lazy_foo(), 100, '... got the correct value');
  59 }
  60
  61
  62