upstream/bind9
1
0
Fork 0
mirror of https://github.com/isc-projects/bind9.git synced 2026-05-28 04:34:54 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

[squash] Make resolver tests even more civilized (ans8.pl)

Browse source 
Set AA=1 even for truncated responses.  Put glue record in responses to
no-questions/NS queries.  Add comments, simplify code.
This commit is contained in:
Michał Kępień 2018-07-17 11:21:39 +02:00
parent 82082ecd56
commit e10e6756c9
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
bin/tests/system/resolver/ans8/ans.pl
View file

@ -62,20 +62,25 @@ sub handleUDP {
my $id = $packet->header->id;
$packet->header->qr(1);
$packet->header->aa(0);
$packet->header->aa(1);
$packet->header->tc(0);
# Responses to queries for no-questions/NS and ns.no-questions/A are
# _not_ malformed or truncated.
if ($qname eq "no-questions" && $qtype eq "NS") {
$packet->push("answer", new Net::DNS::RR($qname . " 300 NS ns.no-questions"));
$packet->push("additional", new Net::DNS::RR("ns.no-questions. 300 A 10.53.0.8"));
return $packet->data;
} elsif ($qname eq "ns.no-questions") {
$packet->push("answer", new Net::DNS::RR($qname . " 300 A 10.53.0.8"));
return $packet->data;
}
# Ensure the QUESTION section is empty in the response.
$packet->pop("question");
if ($qname eq "truncated.no-questions") {
$packet->pop("question");
$packet->header->tc(1);
} elsif ($qname eq "not-truncated.no-questions") {
$packet->pop("question");
} elsif ($qname eq "no-questions" && $qtype eq "NS") {
$packet->header->aa(1);
$packet->push("answer", new Net::DNS::RR("no-questions. 300 NS ns.no-questions"));
} elsif ($qname eq "ns.no-questions" && $qtype eq "A") {
$packet->header->aa(1);
$packet->push("answer", new Net::DNS::RR("ns.no-questions. 300 A 10.53.0.8"));
}
# Net::DNS versions < 0.68 insert an ./ANY RR into the QUESTION section