Fabio/ddclient
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: dnsexit2: Add test for host outside of zone

Browse source
This commit is contained in:
Richard Hansen 2025-01-10 19:19:34 -05:00
parent 115f23dead
commit 3b10e37607
1 changed files with 30 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
t/protocol_dnsexit2.pl
View file

@ -3,6 +3,7 @@ BEGIN { SKIP: { eval { require Test::Warnings; 1; } or skip($@, 1); } }
BEGIN { eval { require JSON::PP; 1; } or plan(skip_all => $@); JSON::PP->import(); } BEGIN { eval { require JSON::PP; 1; } or plan(skip_all => $@); JSON::PP->import(); }
BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); } BEGIN { eval { require 'ddclient'; } or BAIL_OUT($@); }
use ddclient::t::HTTPD; use ddclient::t::HTTPD;
use ddclient::t::Logger;
httpd_required(); httpd_required();
@ -180,6 +181,16 @@ my @test_cases = (
}, },
], ],
}, },
{
desc => 'host outside of zone',
cfg => {
'host.example' => {
wantipv4 => '192.0.2.1',
zone => 'example.com',
},
},
want_fatal => qr{hostname does not end with the zone: example.com},
},
); );
for my $tc (@test_cases) { for my $tc (@test_cases) {
@ -195,7 +206,13 @@ for my $tc (@test_cases) {
%{$tc->{cfg}{$h}}, %{$tc->{cfg}{$h}},
}; };
} }
ddclient::nic_dnsexit2_update(undef, @hosts); my $l = ddclient::t::Logger->new($ddclient::_l, qr/^FATAL$/);
my $err = do {
local $ddclient::_l = $l;
local $@;
(eval { ddclient::nic_dnsexit2_update(undef, @hosts); 1; })
? undef : ($@ // 'unknown error');
};
my @requests = httpd()->reset(); my @requests = httpd()->reset();
my @got; my @got;
for (my $i = 0; $i < @requests; $i++) { for (my $i = 0; $i < @requests; $i++) {
@ -212,8 +229,19 @@ for my $tc (@test_cases) {
}); });
} }
@got = sort_reqs(@got); @got = sort_reqs(@got);
my @want = sort_reqs(@{$tc->{want}}); my @want = sort_reqs(@{$tc->{want} // []});
is_deeply(\@got, \@want, 'request objects match'); is_deeply(\@got, \@want, 'request objects match');
subtest('expected (or lack of) error' => sub {
if (is(defined($err), defined($tc->{want_fatal}), 'error existence') && defined($err)) {
my @got = @{$l->{logs}};
if (is(scalar(@got), 2, 'logged two events')) {
is($got[0]->{label}, 'FATAL', 'first logged event is a FATAL message');
like($got[0]->{msg}, $tc->{want_fatal}, 'first logged event message matches');
is($got[1], 'aborted', 'second logged event is an "aborted" event');
isa_ok($err, qw(ddclient::t::LoggerAbort));
}
}
});
}); });
} }