ts-hosts-allocate-Executive: Radically reduce the previously_failed bonus

Make osstest less obsessive about sticking to failing hosts if they
are persistently unavailable.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 7ffbc8cd0a33a0322b1bae358946f4a4b0e95523..4d5e3bb45ac65f5f72cec0e73e2ffd3cc8104a01 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -547,8 +547,12 @@ sub hid_recurse ($$) {
 
     my $cost= $start_time
        + $duration_for_cost
-        - ($previously_failed      ==@hids ? 366*86400 :
-          $previously_failed_equiv==@hids ? 365*86400 :
+        - ($previously_failed      ==@hids ?   7*86400 :
+          $previously_failed_equiv==@hids ? 6.5*86400 :
+          # We wait 7d extra to try a failing test on the same
+          # hardware, or 6.5d on `equivalent' hardware (as defined by
+          # equiv-* flags).  Compared to `equivalent' hardware, we
+          # wait 12h to try it on exactly the same.
           0)
         + ($previously_failed || $previously_failed_equiv
           ? (-$max_variation_bonus+$variation_bonus) : -$variation_bonus)