retries.t

use 5.026;
use Test::Most;

{
    package Process;
    use Moo;
    has state => ( is => 'ro', lazy => 1, default => sub { { } } );
    sub at_max_retries { $_[0]->state->{retries} // 0 >= 10 }
    sub retry { $_[0]->state->{retries}++ }
}

my $process = new_ok Process => [];

cmp_methods(
    $process,
    [
        at_max_retries => bool(0),
        state          => { },
    ],
    'not yet at max retries and state is empty',
);

$process->retry for 1 .. 10;

cmp_methods(
    $process,
    [
        at_max_retries => bool(1),
        state          => { retries => 10 },
    ],
    'at max retries and state contains retries',
);

done_testing;