From: Witold Krecicki <wpk@isc.org>
Date: Wed, 28 Sep 2016 19:21:48 +0000 (+0200)
Subject: 4476.  [test]          Fix reclimit test on slower machines. [RT #43283]
X-Git-Tag: v9.12.0a1~748
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=a0f9aaa1033f2a1ca8a67ab58808dc8b7b16cc8e;p=thirdparty%2Fbind9.git

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

diff --git a/CHANGES b/CHANGES
index c093744be3a..cd53be26c14 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,5 @@
+4476.	[test]		Fix reclimit test on slower machines. [RT #43283]
+
 4475.	[doc]		Update named-checkconf documentation. [RT #43153]
 
 4474.	[bug]		win32: call WSAStartup in fromtext_in_wks so that
diff --git a/bin/tests/system/reclimit/ans2/ans.pl b/bin/tests/system/reclimit/ans2/ans.pl
index 761cf8403c6..af2dd2a8f07 100644
--- a/bin/tests/system/reclimit/ans2/ans.pl
+++ b/bin/tests/system/reclimit/ans2/ans.pl
@@ -12,6 +12,7 @@ use warnings;
 use IO::File;
 use Getopt::Long;
 use Net::DNS::Nameserver;
+use Time::HiRes qw(usleep nanosleep);
 
 my $pidf = new IO::File "ans.pid", "w" or die "cannot open pid file: $!";
 print $pidf "$$\n" or die "cannot write pid file: $!";
@@ -51,6 +52,8 @@ sub reply_handler {
     STDOUT->flush();
 
     $count += 1;
+    # Sleep 100ms to make sure that named sends both A and AAAA queries.
+    usleep(100000);
 
     if ($qname eq "count" ) {
 	if ($qtype eq "TXT") {