[gitmo/Role-Tiny.git] / t / accessor-pred-clear.t

use strictures 1;
use Test::More;

{
  package Foo;

  use Moo;

  has one => (
    is => 'ro', lazy => 1, default => sub { 3 },
    predicate => 'has_one', clearer => 'clear_one'
  );
}

my $foo = Foo->new;

ok(!$foo->has_one, 'empty');
is($foo->one, 3, 'lazy default');
ok($foo->has_one, 'not empty now');
is($foo->clear_one, 3, 'clearer returns value');
ok(!$foo->has_one, 'clearer empties');
is($foo->one, 3, 'default re-fired');
ok($foo->has_one, 'not empty again');

done_testing;
Commit	Line	Data
8f333548	1	use strictures 1;
	2	use Test::More;
	3
	4	{
	5	package Foo;
	6
b1eebd55	7	use Moo;
8f333548	8
	9	has one => (
	10	is => 'ro', lazy => 1, default => sub { 3 },
	11	predicate => 'has_one', clearer => 'clear_one'
	12	);
	13	}
	14
	15	my $foo = Foo->new;
	16
	17	ok(!$foo->has_one, 'empty');
	18	is($foo->one, 3, 'lazy default');
	19	ok($foo->has_one, 'not empty now');
	20	is($foo->clear_one, 3, 'clearer returns value');
	21	ok(!$foo->has_one, 'clearer empties');
	22	is($foo->one, 3, 'default re-fired');
	23	ok($foo->has_one, 'not empty again');
	24
	25	done_testing;