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

tests: dnsexit2: Use reserved IP addresses and domain names

Browse source
This commit is contained in:
Richard Hansen 2024-09-06 15:33:37 -04:00
parent d38fcbddb8
commit dd7ad1ccf4
1 changed files with 23 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
t/protocol_dnsexit2.pl
View file

@ -59,19 +59,19 @@ sub get_requests {
subtest 'Testing nic_dnsexit2_update' => sub { subtest 'Testing nic_dnsexit2_update' => sub {
local %ddclient::config = ( local %ddclient::config = (
'host.my.zone.com' => { 'host.my.example.com' => {
'usev4' => 'ipv4', 'usev4' => 'ipv4',
'wantipv4' => '8.8.4.4', 'wantipv4' => '192.0.2.1',
'usev6' => 'ipv6', 'usev6' => 'ipv6',
'wantipv6' => '2001:4860:4860::8888', 'wantipv6' => '2001:db8::1',
'protocol' => 'dnsexit2', 'protocol' => 'dnsexit2',
'password' => 'mytestingpassword', 'password' => 'mytestingpassword',
'zone' => 'my.zone.com', 'zone' => 'my.example.com',
'server' => $httpd->endpoint(), 'server' => $httpd->endpoint(),
'path' => '/update', 'path' => '/update',
'ttl' => 5 'ttl' => 5
}); });
ddclient::nic_dnsexit2_update(undef, 'host.my.zone.com'); ddclient::nic_dnsexit2_update(undef, 'host.my.example.com');
my @requests = get_requests(); my @requests = get_requests();
is(scalar(@requests), 1, 'expected number of update requests'); is(scalar(@requests), 1, 'expected number of update requests');
my $req = shift(@requests); my $req = shift(@requests);
@ -81,19 +81,19 @@ subtest 'Testing nic_dnsexit2_update' => sub {
like($req->{headers}, qr/Accept: application\/json/, 'Accept header is correct'); like($req->{headers}, qr/Accept: application\/json/, 'Accept header is correct');
my $got = decode_and_sort_array($req->{content}); my $got = decode_and_sort_array($req->{content});
my $want = decode_and_sort_array({ my $want = decode_and_sort_array({
'domain' => 'my.zone.com', 'domain' => 'my.example.com',
'apikey' => 'mytestingpassword', 'apikey' => 'mytestingpassword',
'update' => [ 'update' => [
{ {
'type' => 'A', 'type' => 'A',
'name' => 'host', 'name' => 'host',
'content' => '8.8.4.4', 'content' => '192.0.2.1',
'ttl' => 5, 'ttl' => 5,
}, },
{ {
'type' => 'AAAA', 'type' => 'AAAA',
'name' => 'host', 'name' => 'host',
'content' => '2001:4860:4860::8888', 'content' => '2001:db8::1',
'ttl' => 5, 'ttl' => 5,
} }
] ]
@ -104,28 +104,28 @@ subtest 'Testing nic_dnsexit2_update' => sub {
subtest 'Testing nic_dnsexit2_update without a zone set' => sub { subtest 'Testing nic_dnsexit2_update without a zone set' => sub {
local %ddclient::config = ( local %ddclient::config = (
'myhost.zone.com' => { 'myhost.example.com' => {
'usev4' => 'ipv4', 'usev4' => 'ipv4',
'wantipv4' => '8.8.4.4', 'wantipv4' => '192.0.2.1',
'protocol' => 'dnsexit2', 'protocol' => 'dnsexit2',
'password' => 'anotherpassword', 'password' => 'anotherpassword',
'server' => $httpd->endpoint(), 'server' => $httpd->endpoint(),
'path' => '/update-alt', 'path' => '/update-alt',
'ttl' => 10 'ttl' => 10
}); });
ddclient::nic_dnsexit2_update(undef, 'myhost.zone.com'); ddclient::nic_dnsexit2_update(undef, 'myhost.example.com');
my @requests = get_requests(); my @requests = get_requests();
is(scalar(@requests), 1, 'expected number of update requests'); is(scalar(@requests), 1, 'expected number of update requests');
my $req = shift(@requests); my $req = shift(@requests);
my $got = decode_and_sort_array($req->{content}); my $got = decode_and_sort_array($req->{content});
my $want = decode_and_sort_array({ my $want = decode_and_sort_array({
'domain' => 'myhost.zone.com', 'domain' => 'myhost.example.com',
'apikey' => 'anotherpassword', 'apikey' => 'anotherpassword',
'update' => [ 'update' => [
{ {
'type' => 'A', 'type' => 'A',
'name' => '', 'name' => '',
'content' => '8.8.4.4', 'content' => '192.0.2.1',
'ttl' => 10, 'ttl' => 10,
} }
] ]
@ -136,47 +136,47 @@ subtest 'Testing nic_dnsexit2_update without a zone set' => sub {
subtest 'Testing nic_dnsexit2_update with two hostnames, one with a zone and one without' => sub { subtest 'Testing nic_dnsexit2_update with two hostnames, one with a zone and one without' => sub {
local %ddclient::config = ( local %ddclient::config = (
'host1.zone.com' => { 'host1.example.com' => {
'usev4' => 'ipv4', 'usev4' => 'ipv4',
'wantipv4' => '8.8.4.4', 'wantipv4' => '192.0.2.1',
'protocol' => 'dnsexit2', 'protocol' => 'dnsexit2',
'password' => 'testingpassword', 'password' => 'testingpassword',
'server' => $httpd->endpoint(), 'server' => $httpd->endpoint(),
'path' => '/update', 'path' => '/update',
'ttl' => 5 'ttl' => 5
}, },
'host2.zone.com' => { 'host2.example.com' => {
'usev6' => 'ipv6', 'usev6' => 'ipv6',
'wantipv6' => '2001:4860:4860::8888', 'wantipv6' => '2001:db8::1',
'protocol' => 'dnsexit2', 'protocol' => 'dnsexit2',
'password' => 'testingpassword', 'password' => 'testingpassword',
'server' => $httpd->endpoint(), 'server' => $httpd->endpoint(),
'path' => '/update', 'path' => '/update',
'ttl' => 10, 'ttl' => 10,
'zone' => 'zone.com' 'zone' => 'example.com'
} }
); );
ddclient::nic_dnsexit2_update(undef, 'host1.zone.com', 'host2.zone.com'); ddclient::nic_dnsexit2_update(undef, 'host1.example.com', 'host2.example.com');
my @requests = get_requests(); my @requests = get_requests();
my @got = map(decode_and_sort_array($_->{content}), @requests); my @got = map(decode_and_sort_array($_->{content}), @requests);
my @want = ( my @want = (
decode_and_sort_array({ decode_and_sort_array({
'domain' => 'host1.zone.com', 'domain' => 'host1.example.com',
'apikey' => 'testingpassword', 'apikey' => 'testingpassword',
'update' => [{ 'update' => [{
'type' => 'A', 'type' => 'A',
'name' => '', 'name' => '',
'content' => '8.8.4.4', 'content' => '192.0.2.1',
'ttl' => 5, 'ttl' => 5,
}], }],
}), }),
decode_and_sort_array({ decode_and_sort_array({
'domain' => 'zone.com', 'domain' => 'example.com',
'apikey' => 'testingpassword', 'apikey' => 'testingpassword',
'update' => [{ 'update' => [{
'type' => 'AAAA', 'type' => 'AAAA',
'name' => 'host2', 'name' => 'host2',
'content' => '2001:4860:4860::8888', 'content' => '2001:db8::1',
'ttl' => 10, 'ttl' => 10,
}], }],
}), }),