dnsexit2: Add tests
Needs LWP::UserAgent.
This commit is contained in:
jortkoopmans
Richard Hansen
parent
282bb01e17
commit
ec2d5f7f69
4 changed files with 217 additions and 0 deletions
2
.github/workflows/ci.yml
vendored
2
.github/workflows/ci.yml
vendored
|
|
@ -33,6 +33,7 @@ jobs:
|
||||||
libtest-tcp-perl \
|
libtest-tcp-perl \
|
||||||
libtest-warnings-perl \
|
libtest-warnings-perl \
|
||||||
liburi-perl \
|
liburi-perl \
|
||||||
|
libwww-perl \
|
||||||
net-tools \
|
net-tools \
|
||||||
make \
|
make \
|
||||||
;
|
;
|
||||||
|
|
@ -102,6 +103,7 @@ jobs:
|
||||||
perl-Test-TCP \
|
perl-Test-TCP \
|
||||||
perl-Test-Warnings \
|
perl-Test-Warnings \
|
||||||
perl-core \
|
perl-core \
|
||||||
|
perl-libwww-perl \
|
||||||
net-tools \
|
net-tools \
|
||||||
;
|
;
|
||||||
- name: autogen
|
- name: autogen
|
||||||
|
|
|
||||||
|
|
@ -63,6 +63,7 @@ AM_PL_LOG_FLAGS = -Mstrict -w \
|
||||||
-MDevel::Autoflush
|
-MDevel::Autoflush
|
||||||
handwritten_tests = \
|
handwritten_tests = \
|
||||||
t/builtinfw_query.pl \
|
t/builtinfw_query.pl \
|
||||||
|
t/dnsexit2.pl \
|
||||||
t/get_ip_from_if.pl \
|
t/get_ip_from_if.pl \
|
||||||
t/geturl_connectivity.pl \
|
t/geturl_connectivity.pl \
|
||||||
t/group_hosts_by.pl \
|
t/group_hosts_by.pl \
|
||||||
|
|
|
||||||
|
|
@ -80,6 +80,8 @@ m4_foreach_w([_m], [
|
||||||
HTTP::Message::PSGI
|
HTTP::Message::PSGI
|
||||||
HTTP::Request
|
HTTP::Request
|
||||||
HTTP::Response
|
HTTP::Response
|
||||||
|
JSON::PP
|
||||||
|
LWP::UserAgent
|
||||||
Scalar::Util
|
Scalar::Util
|
||||||
Test::MockModule
|
Test::MockModule
|
||||||
Test::TCP
|
Test::TCP
|
||||||
|
|
|
||||||
212
t/dnsexit2.pl
Normal file
212
t/dnsexit2.pl
Normal file
|
|
@ -0,0 +1,212 @@
|
||||||
|
use Test::More;
|
||||||
|
eval { require JSON::PP; } or plan(skip_all => $@);
|
||||||
|
JSON::PP->import(qw(encode_json decode_json));
|
||||||
|
eval { require 'ddclient'; } or BAIL_OUT($@);
|
||||||
|
eval { require ddclient::Test::Fake::HTTPD; } or plan(skip_all => $@);
|
||||||
|
eval { require LWP::UserAgent; } or plan(skip_all => $@);
|
||||||
|
|
||||||
|
ddclient::load_json_support('dnsexit2');
|
||||||
|
|
||||||
|
my @requests; # Declare global variable to store requests, used for tests.
|
||||||
|
my @httpd_requests; # Declare variable specificly used for the httpd process (which cannot be shared with tests).
|
||||||
|
my $httpd = ddclient::Test::Fake::HTTPD->new();
|
||||||
|
|
||||||
|
$httpd->run(sub {
|
||||||
|
my ($req) = @_;
|
||||||
|
if ($req->uri->as_string eq '/get_requests') {
|
||||||
|
return [200, ['Content-Type' => 'application/json'], [encode_json(\@httpd_requests)]];
|
||||||
|
} elsif ($req->uri->as_string eq '/reset_requests') {
|
||||||
|
@httpd_requests = ();
|
||||||
|
return [200, ['Content-Type' => 'application/json'], [encode_json({ message => 'OK' })]];
|
||||||
|
}
|
||||||
|
my $request_info = {
|
||||||
|
method => $req->method,
|
||||||
|
uri => $req->uri->as_string,
|
||||||
|
content => $req->content,
|
||||||
|
headers => $req->headers->as_string
|
||||||
|
};
|
||||||
|
push @httpd_requests, $request_info;
|
||||||
|
return [200, ['Content-Type' => 'application/json'], [encode_json({
|
||||||
|
code => 0,
|
||||||
|
message => 'Success'
|
||||||
|
})]];
|
||||||
|
});
|
||||||
|
|
||||||
|
diag(sprintf("started IPv4 server running at %s", $httpd->endpoint()));
|
||||||
|
|
||||||
|
my $ua = LWP::UserAgent->new;
|
||||||
|
|
||||||
|
sub test_nic_dnsexit2_update {
|
||||||
|
my ($config, @hostnames) = @_;
|
||||||
|
%ddclient::config = %$config;
|
||||||
|
ddclient::nic_dnsexit2_update(@hostnames);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub decode_and_sort_array {
|
||||||
|
my ($data) = @_;
|
||||||
|
if (!ref $data) {
|
||||||
|
$data = decode_json($data);
|
||||||
|
}
|
||||||
|
@{$data->{update}} = sort { $a->{type} cmp $b->{type} } @{$data->{update}};
|
||||||
|
return $data;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub reset_test_data {
|
||||||
|
my $response = $ua->get($httpd->endpoint . '/reset_requests');
|
||||||
|
die "Failed to reset requests" unless $response->is_success;
|
||||||
|
@requests = ();
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_requests {
|
||||||
|
my $res = $ua->get($httpd->endpoint . '/get_requests');
|
||||||
|
die "Failed to get requests: " . $res->status_line unless $res->is_success;
|
||||||
|
return @{decode_json($res->decoded_content)};
|
||||||
|
}
|
||||||
|
|
||||||
|
subtest 'Testing nic_dnsexit2_update' => sub {
|
||||||
|
my %config = (
|
||||||
|
'host.my.zone.com' => {
|
||||||
|
'ssl' => 'no',
|
||||||
|
'verbose' => 'yes',
|
||||||
|
'usev4' => 'ipv4',
|
||||||
|
'wantipv4' => '8.8.4.4',
|
||||||
|
'usev6' => 'ipv6',
|
||||||
|
'wantipv6' => '2001:4860:4860::8888',
|
||||||
|
'protocol' => 'dnsexit2',
|
||||||
|
'password' => 'mytestingpassword',
|
||||||
|
'zone' => 'my.zone.com',
|
||||||
|
'server' => $httpd->host_port(),
|
||||||
|
'path' => '/update',
|
||||||
|
'ttl' => 5
|
||||||
|
});
|
||||||
|
test_nic_dnsexit2_update(\%config, 'host.my.zone.com');
|
||||||
|
@requests = get_requests();
|
||||||
|
is($requests[0]->{method}, 'POST', 'Method is correct');
|
||||||
|
is($requests[0]->{uri}, '/update', 'URI contains correct path');
|
||||||
|
like($requests[0]->{headers}, qr/Content-Type: application\/json/, 'Content-Type header is correct');
|
||||||
|
like($requests[0]->{headers}, qr/Accept: application\/json/, 'Accept header is correct');
|
||||||
|
my $data = decode_and_sort_array($requests[0]->{content});
|
||||||
|
my $expected_data = decode_and_sort_array({
|
||||||
|
'domain' => 'my.zone.com',
|
||||||
|
'apikey' => 'mytestingpassword',
|
||||||
|
'update' => [
|
||||||
|
{
|
||||||
|
'type' => 'A',
|
||||||
|
'name' => 'host',
|
||||||
|
'content' => '8.8.4.4',
|
||||||
|
'ttl' => 5,
|
||||||
|
},
|
||||||
|
{
|
||||||
|
'type' => 'AAAA',
|
||||||
|
'name' => 'host',
|
||||||
|
'content' => '2001:4860:4860::8888',
|
||||||
|
'ttl' => 5,
|
||||||
|
}
|
||||||
|
]
|
||||||
|
});
|
||||||
|
TODO: {
|
||||||
|
local $TODO = "https://github.com/ddclient/ddclient/issues/673";
|
||||||
|
is_deeply($data, $expected_data, 'Data is correct');
|
||||||
|
}
|
||||||
|
reset_test_data();
|
||||||
|
};
|
||||||
|
|
||||||
|
subtest 'Testing nic_dnsexit2_update without a zone set' => sub {
|
||||||
|
my %config = (
|
||||||
|
'myhost.zone.com' => {
|
||||||
|
'ssl' => 'yes',
|
||||||
|
'verbose' => 'yes',
|
||||||
|
'usev4' => 'ipv4',
|
||||||
|
'wantipv4' => '8.8.4.4',
|
||||||
|
'protocol' => 'dnsexit2',
|
||||||
|
'password' => 'anotherpassword',
|
||||||
|
'server' => $httpd->host_port(),
|
||||||
|
'path' => '/update-alt',
|
||||||
|
'ttl' => 10
|
||||||
|
});
|
||||||
|
test_nic_dnsexit2_update(\%config, 'myhost.zone.com');
|
||||||
|
@requests = get_requests();
|
||||||
|
my $data = decode_and_sort_array($requests[0]->{content});
|
||||||
|
my $expected_data = decode_and_sort_array({
|
||||||
|
'domain' => 'myhost.zone.com',
|
||||||
|
'apikey' => 'anotherpassword',
|
||||||
|
'update' => [
|
||||||
|
{
|
||||||
|
'type' => 'A',
|
||||||
|
'name' => '',
|
||||||
|
'content' => '8.8.4.4',
|
||||||
|
'ttl' => 10,
|
||||||
|
}
|
||||||
|
]
|
||||||
|
});
|
||||||
|
TODO: {
|
||||||
|
local $TODO = "https://github.com/ddclient/ddclient/issues/673";
|
||||||
|
is_deeply($data, $expected_data, 'Data is correct');
|
||||||
|
}
|
||||||
|
reset_test_data($ua);
|
||||||
|
};
|
||||||
|
|
||||||
|
subtest 'Testing nic_dnsexit2_update with two hostnames, one with a zone and one without' => sub {
|
||||||
|
my %config = (
|
||||||
|
'host1.zone.com' => {
|
||||||
|
'ssl' => 'yes',
|
||||||
|
'verbose' => 'yes',
|
||||||
|
'usev4' => 'ipv4',
|
||||||
|
'wantipv4' => '8.8.4.4',
|
||||||
|
'protocol' => 'dnsexit2',
|
||||||
|
'password' => 'testingpassword',
|
||||||
|
'server' => $httpd->host_port(),
|
||||||
|
'path' => '/update',
|
||||||
|
'ttl' => 5
|
||||||
|
},
|
||||||
|
'host2.zone.com' => {
|
||||||
|
'ssl' => 'yes',
|
||||||
|
'verbose' => 'yes',
|
||||||
|
'usev6' => 'ipv6',
|
||||||
|
'wantipv6' => '2001:4860:4860::8888',
|
||||||
|
'protocol' => 'dnsexit2',
|
||||||
|
'password' => 'testingpassword',
|
||||||
|
'server' => $httpd->host_port(),
|
||||||
|
'path' => '/update',
|
||||||
|
'ttl' => 10,
|
||||||
|
'zone' => 'zone.com'
|
||||||
|
}
|
||||||
|
);
|
||||||
|
test_nic_dnsexit2_update(\%config, 'host1.zone.com', 'host2.zone.com');
|
||||||
|
my $expected_data1 = decode_and_sort_array({
|
||||||
|
'domain' => 'host1.zone.com',
|
||||||
|
'apikey' => 'testingpassword',
|
||||||
|
'update' => [
|
||||||
|
{
|
||||||
|
'type' => 'A',
|
||||||
|
'name' => '',
|
||||||
|
'content' => '8.8.4.4',
|
||||||
|
'ttl' => 5,
|
||||||
|
}
|
||||||
|
]
|
||||||
|
});
|
||||||
|
my $expected_data2 = decode_and_sort_array({
|
||||||
|
'domain' => 'zone.com',
|
||||||
|
'apikey' => 'testingpassword',
|
||||||
|
'update' => [
|
||||||
|
{
|
||||||
|
'type' => 'AAAA',
|
||||||
|
'name' => 'host2',
|
||||||
|
'content' => '2001:4860:4860::8888',
|
||||||
|
'ttl' => 10,
|
||||||
|
}
|
||||||
|
]
|
||||||
|
});
|
||||||
|
@requests = get_requests();
|
||||||
|
for my $i (0..1) {
|
||||||
|
my $data = decode_and_sort_array($requests[$i]->{content});
|
||||||
|
TODO: {
|
||||||
|
local $TODO = "https://github.com/ddclient/ddclient/issues/673";
|
||||||
|
is_deeply($data, $expected_data1, 'Data is correct for call host1') if $i == 0;
|
||||||
|
is_deeply($data, $expected_data2, 'Data is correct for call host2') if $i == 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
reset_test_data();
|
||||||
|
};
|
||||||
|
|
||||||
|
done_testing();
|
||||||
Loading…
Reference in a new issue