mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-01 15:05:23 +00:00
Code Issues Releases Wiki Activity

4476. [test] Fix reclimit test on slower machines. [RT #43283]

Browse Source
This commit is contained in:
Witold Krecicki
2016-09-28 21:21:48 +02:00
parent 67cdd2d3a4
commit a0f9aaa103
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
CHANGES
View File

@@ -1,3 +1,5 @@
4476. [test] Fix reclimit test on slower machines. [RT #43283]
4475. [doc] Update named-checkconf documentation. [RT #43153] 4475. [doc] Update named-checkconf documentation. [RT #43153]
4474. [bug] win32: call WSAStartup in fromtext_in_wks so that 4474. [bug] win32: call WSAStartup in fromtext_in_wks so that

3
bin/tests/system/reclimit/ans2/ans.pl
View File

@@ -12,6 +12,7 @@ use warnings;
use IO::File; use IO::File;
use Getopt::Long; use Getopt::Long;
use Net::DNS::Nameserver; use Net::DNS::Nameserver;
use Time::HiRes qw(usleep nanosleep);
my $pidf = new IO::File "ans.pid", "w" or die "cannot open pid file: $!"; my $pidf = new IO::File "ans.pid", "w" or die "cannot open pid file: $!";
print $pidf "$$\n" or die "cannot write pid file: $!"; print $pidf "$$\n" or die "cannot write pid file: $!";
@@ -51,6 +52,8 @@ sub reply_handler {
STDOUT->flush(); STDOUT->flush();
$count += 1; $count += 1;
# Sleep 100ms to make sure that named sends both A and AAAA queries.
usleep(100000);
if ($qname eq "count" ) { if ($qname eq "count" ) {
if ($qtype eq "TXT") { if ($qtype eq "TXT") {