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

diff --git a/CHANGES b/CHANGES
index c093744be3a148759e0de2cb5643cb7f9defd2ac..cd53be26c14ce3c2ffbcd4dc7e1f31ff58806eb7 100644 (file)
--- 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 761cf8403c64b2c73e3e14645f41ecacf21bc2ef..af2dd2a8f07e9c99605a576fcfc540b24aeb1290 100644 (file)
--- 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") {