t/accessor-shortcuts.t

   1 use strictures 1;
   2 use Test::More;
   3 use Test::Fatal;
   4
   5 my $test         = "test";
   6 my $lazy_default = "lazy_default";
   7
   8 {
   9   package Foo;
  10
  11   use Moo;
  12
  13   has rwp  => (is => 'rwp');
  14   has lazy => (is => 'lazy');
  15   sub _build_lazy    { $test }
  16   has lazy_default => (is => 'lazy', default => sub { $lazy_default });
  17 }
  18
  19 my $foo = Foo->new;
  20
  21 # rwp
  22 {
  23   is $foo->rwp, undef, "rwp value starts out undefined";
  24   ok exception { $foo->rwp($test) }, "rwp is read_only";
  25   is exception { $foo->_set_rwp($test) }, undef, "rwp can be set by writer";
  26   is $foo->rwp, $test, "rwp value was set by writer";
  27 }
  28
  29 # lazy
  30 {
  31   is $foo->{lazy}, undef, "lazy value storage is undefined";
  32   is $foo->lazy, $test, "lazy value returns test value when called";
  33   ok exception { $foo->lazy($test) }, "lazy is read_only";
  34 }
  35
  36 # lazy + default
  37 {
  38   is $foo->{lazy_default}, undef, "lazy_default value storage is undefined";
  39   is $foo->lazy_default, $lazy_default, "lazy_default value returns test value when called";
  40   ok exception { $foo->lazy_default($test) }, "lazy_default is read_only";
  41 }
  42
  43 done_testing;