use Test::More tests => 5;

    is( retry(sub{0}), 0
      , "always-failing job fails 1 retry" );
    is( retry(sub{0}, 2), 0
      , "always-failing job fails 2 retries" );
    is( retry(sub{1}, 0), 1
      , "always-succeeding job succeeds regardless of retries" );
    is( retry(mk_counter(), 1), 0
      , "succeed-on-second job fails if given only 1 retry" );
    is( retry(mk_counter(), 2), 1
      , "succeed-on-second job succeeds if given 2 retries" );


    # helper that makes fns that return 0 on 1st call, 1 on 2nd, ...

    sub mk_counter {
        my $i = 0;
        sub { $i++ }
    }