[PATCH] testbot: Add LibvirtDomain::HasSnapshot().

[Francois Gouget]

It is needed by WineRunReconfig.pl.

Signed-off-by: Francois Gouget 
---

I forgot that this function is in another unsubmitted patch. This broke 
the build VM update. So I'm updating it to make sure the patches are 
tested against the current Wine.

testbot/lib/WineTestBot/LibvirtDomain.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/testbot/lib/WineTestBot/LibvirtDomain.pm b/testbot/lib/WineTestBot/LibvirtDomain.pm
index 8435793615..f1e2c8fcb9 100644
--- a/testbot/lib/WineTestBot/LibvirtDomain.pm
+++ b/testbot/lib/WineTestBot/LibvirtDomain.pm
@@ -176,6 +176,14 @@ sub _GetSnapshot($$)
   return (_eval_err() || "Snapshot '$SnapshotName' not found", undef, undef);
 }

+sub HasSnapshot($$)
+{
+  my ($self, $SnapshotName) = @_;
+
+  my ($ErrMessage, $Domain, $Snapshot) = $self->_GetSnapshot($SnapshotName);
+  return $ErrMessage ? 0 : 1;
+}
+
 sub GetSnapshotName($)
 {
   my ($self) = @_;