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
41
42
43
44
45
46
47
48
| | # Copyright (C) all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use v5.12;
use PublicInbox::TestCommon;
my $tmpdir = tmpdir;
{
my $config = cfg_new $tmpdir, <<EOF;
[publicinbox "test"]
address = test\@example.com
inboxdir = /path/to/non/existent
httpbackendmax = 12
EOF
my $ibx = $config->lookup_name('test');
my $git = $ibx->git;
my $old = "$git";
my $lim = $git->{-httpbackend_limiter};
ok($lim, 'Limiter exists');
is($lim->{max}, 12, 'limiter has expected slots');
$ibx->{git} = undef;
$git = $ibx->git;
isnt($old, "$git", 'got new Git object');
is("$git->{-httpbackend_limiter}", "$lim", 'same limiter');
}
{
my $config = cfg_new $tmpdir, <<EOF;
[publicinboxlimiter "named"]
max = 3
[publicinbox "test"]
address = test\@example.com
inboxdir = /path/to/non/existent
httpbackendmax = named
EOF
my $ibx = $config->lookup_name('test');
my $git = $ibx->git;
ok($git, 'got git object');
my $old = "$git"; # stringify object ref "Git(0xDEADBEEF)"
my $lim = $git->{-httpbackend_limiter};
ok($lim, 'Limiter exists');
is($lim->{max}, 3, 'limiter has expected slots');
$ibx->{git} = undef;
my $new = $ibx->git;
isnt($old, "$new", 'got new Git object');
is("$new->{-httpbackend_limiter}", "$lim", 'same limiter');
is($lim->{max}, 3, 'limiter has expected slots');
}
done_testing;
|