testbot: Only schedule active VMs.

[Francois Gouget]

The retired and deleted VMs should be ignored, even if they look like they are running.
---
 testbot/lib/WineTestBot/Jobs.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/testbot/lib/WineTestBot/Jobs.pm b/testbot/lib/WineTestBot/Jobs.pm
index e9a5119..94eae04 100644
--- a/testbot/lib/WineTestBot/Jobs.pm
+++ b/testbot/lib/WineTestBot/Jobs.pm
@@ -432,6 +432,7 @@ sub ScheduleOnHost($$)
   my ($SortedJobs, $Hypervisors) = @_;
 
   my $HostVMs = CreateVMs();
+  $HostVMs->FilterEnabledRole();
   $HostVMs->FilterHypervisor($Hypervisors);
 
   # Count the VMs that are 'active', that is, that use resources on the host,
-- 
1.8.5.1