Francois Gouget : testbot: Remove unused VM filtering and counting functions.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 050ffc835057b890df25552f36da1dbf829a02ea
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=050ffc835057b890df25552f3...

Author: Francois Gouget 
Date:   Tue Oct  3 03:25:35 2017 +0200

testbot: Remove unused VM filtering and counting functions.

They have not been used since the last scheduler changes.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/lib/WineTestBot/VMs.pm | 59 ------------------------------------------
 1 file changed, 59 deletions(-)

diff --git a/testbot/lib/WineTestBot/VMs.pm b/testbot/lib/WineTestBot/VMs.pm
index 1fd72ff..dafce67 100644
--- a/testbot/lib/WineTestBot/VMs.pm
+++ b/testbot/lib/WineTestBot/VMs.pm
@@ -480,25 +480,6 @@ sub Status($;$)
   return $NewStatus;
 }

-sub HasPoweredOnStatus($)
-{
-  my ($self) = @_;
-  my $Status = $self->Status;
-  return ($Status eq "reverting" or
-          $Status eq "sleeping" or
-          $Status eq "idle" or
-          $Status eq "running");
-}
-
-sub HasEnabledRole($)
-{
-  my ($self) = @_;
-  my $Role = $self->Role;
-  return ($Role eq "extra" or
-          $Role eq "base" or
-          $Role eq "winetest");
-}
-
 sub Validate($)
 {
   my ($self) = @_;
@@ -628,46 +609,6 @@ sub CreateVMs(;$)
                                  @PropertyDescriptors, $ScopeObject);
 }

-sub CountRevertingRunningVMs($)
-{
-  my ($self) = @_;
-
-  my $RevertingVMs = 0;
-  my $RunningVMs = 0;
-
-  foreach my $VM (@{$self->GetItems()})
-  {
-    my $VMStatus = $VM->Status;
-    if ($VMStatus eq "reverting")
-    {
-      $RevertingVMs++;
-    }
-    elsif ($VMStatus eq "running")
-    {
-      $RunningVMs++;
-    }
-  }
-
-  return ($RevertingVMs, $RunningVMs);
-}
-
-sub CountPoweredOnNonBaseVMs($)
-{
-  my ($self) = @_;
-
-  my $PoweredOnVMs = 0;
-  foreach my $VM (@{$self->GetItems()})
-  {
-    if ($VM->Role ne "base" and $VM->HasEnabledRole() and
-        $VM->HasPoweredOnStatus())
-    {
-      $PoweredOnVMs++;
-    }
-  }
-
-  return $PoweredOnVMs;
-}
-
 sub SortKeysBySortOrder($$)
 {
   my ($self, $Keys) = @_;