Francois Gouget : testbot/TestAgent: Make the SetTime() leeway configurable.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 8fc1ff73214835d5b6d7d43beaab197e74d31662
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=8fc1ff73214835d5b6d7d43b...

Author: Francois Gouget <fgouget(a)codeweavers.com>
Date:   Thu Feb 24 18:57:47 2022 +0100

testbot/TestAgent: Make the SetTime() leeway configurable.

Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard(a)winehq.org>

---

 testbot/lib/WineTestBot/TestAgent.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/testbot/lib/WineTestBot/TestAgent.pm b/testbot/lib/WineTestBot/TestAgent.pm
index 7934070..6457b4d 100644
--- a/testbot/lib/WineTestBot/TestAgent.pm
+++ b/testbot/lib/WineTestBot/TestAgent.pm
@@ -1400,16 +1400,17 @@ sub Rm($@)
   return $self->_RecvErrorList();
 }
 
-sub SetTime($)
+sub SetTime($;$)
 {
-  my ($self) = @_;
-  debug("SetTime\n");
+  my ($self, $Leeway) = @_;
+  $Leeway ||= 30;
+  debug("SetTime $Leeway\n");
 
   # Send the command
   if (!$self->_StartRPC($RPC_SETTIME) or
       !$self->_SendListSize('ArgC', 2) or
       !$self->_SendUInt64('Time', time()) or
-      !$self->_SendUInt32('Leeway', 30))
+      !$self->_SendUInt32('Leeway', $Leeway))
   {
       return undef;
   }