testbot: Give a higher priority to wine-patches jobs than to the WineTest runs.

[Francois Gouget]

---

The rational is that the speed at which we give feedback to developers 
who submit patches is more important than the speed at which we fill the 
test.winehq.org site with results.

Also note that this 'Priority' field is actually a 'Niceness' field: the 
higher the value, the lower the priority of the job.

 testbot/bin/CheckForWinetestUpdate.pl | 2 +-
 testbot/lib/WineTestBot/Patches.pm    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/testbot/bin/CheckForWinetestUpdate.pl b/testbot/bin/CheckForWinetestUpdate.pl
index e9f07ac..df3c63e 100755
--- a/testbot/bin/CheckForWinetestUpdate.pl
+++ b/testbot/bin/CheckForWinetestUpdate.pl
@@ -60,7 +60,7 @@ sub AddJob
   my $Jobs = CreateJobs();
   my $NewJob = $Jobs->Add();
   $NewJob->User(GetBatchUser());
-  $NewJob->Priority($BaseJob && $Bits == 32 ? 6 : 7);
+  $NewJob->Priority($BaseJob && $Bits == 32 ? 8 : 9);
   $NewJob->Remarks("WineTest: " .
                    ($Bits == 32 ? ($BaseJob ? "base" : "other") : "64-bit") .
                    " VMs");
diff --git a/testbot/lib/WineTestBot/Patches.pm b/testbot/lib/WineTestBot/Patches.pm
index a4aed22..70c47f7 100644
--- a/testbot/lib/WineTestBot/Patches.pm
+++ b/testbot/lib/WineTestBot/Patches.pm
@@ -192,7 +192,7 @@ sub Submit
     # Create a new job for this patch
     my $NewJob = $Jobs->Add();
     $NewJob->User($User);
-    $NewJob->Priority(9);
+    $NewJob->Priority(6);
     my $PropertyDescriptor = $Jobs->GetPropertyDescriptorByName("Remarks");
     my $Subject = $self->Subject;
     $Subject =~ s/\[PATCH[^\]]*]//i;
-- 
2.0.0.rc0