1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!perl
use strict;
use warnings;
use Test::More 0.98;
use Algorithm::Backoff::MILD;
#subtest "required arguments" => sub {
#};
# XXX test attr: max_attempts
subtest "attr: initial_delay, delay_multiple_on_failure, delay_increment_on_success, max_delay, min_delay" => sub {
my $ar = Algorithm::Backoff::MILD->new(
delay_multiple_on_failure => 2,
delay_increment_on_success => -2,
initial_delay => 3,
min_delay => 1,
);
is($ar->failure(1), 3);
is($ar->failure(1), 6);
is($ar->failure(1), 12);
is($ar->success(1), 10);
is($ar->success(1), 8);
is($ar->success(1), 6);
is($ar->success(1), 4);
is($ar->success(1), 2);
is($ar->success(1), 1);
is($ar->success(1), 1);
is($ar->success(1), 1);
is($ar->failure(1), 2);
is($ar->failure(1), 4);
};
# XXX test attr: jitter_factor
DONE_TESTING:
done_testing;
|
