[tools 1/3] testbot/TestAgent: Make the SetTime() leeway configurable.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 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 7934070779..6457b4dd7d 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;
   }