grahamc/hydra2 - Change TFLAR4KANBOKVE63435RE4A5JHEDYD2ARZIECI64DKVOSBHJULGAC

hydra-queue-runner: Start as many builds as possible on each iteration

Because we don't start a build if a dependency is already building, it's possible that some or all of the $extraAllowed highest-priority builds in the queue are not eligible. E.g. with $extraAllowed = 32, we might start only 3 builds even though there are thousands in the queue. The fix is to try all queued builds until $extraAllowed have been started.

Issue #99.

Created by Eelco Dolstra on June 7, 2013

TFLAR4KANBOKVE63435RE4A5JHEDYD2ARZIECI64DKVOSBHJULGAC

Dependencies

In channels

main

Change contents

Replacement in src/script/hydra-queue-runner at line 103 [5.7823]

B:BD[4.494] → [3.2205:2281]

∅:D[6.804] → [7.1248:1292]

∅:D[3.2281] → [7.1248:1292]

∅:D[8.7291] → [7.1248:1292]

B:BD[7.1248] → [7.1248:1292]

                { join => ['project'], order_by => ["priority DESC", "id"],
                  rows => $extraAllowed });

[4.494]

[7.1292]

                { join => ['project'], order_by => ["priority DESC", "id"] });

Replacement in src/script/hydra-queue-runner at line 105 [5.7823]

B:BD[7.1293] → [2.0:225]

∅:D[2.225] → [5.8820:8821]

∅:D[9.685] → [5.8820:8821]

∅:D[7.1463] → [5.8820:8821]

B:BD[5.8820] → [5.8820:8821]

            if (scalar(@builds) > 0) {
              print "system type `", $system->system,
                  "': $nrActive active, $max allowed, ",
                  "starting ", scalar(@builds), " builds\n";
            }

[7.1293]

[9.686]

            my $started = 0;

Insertion in src/script/hydra-queue-runner at line 127 [5.7823]

[9.1149]

[7.1879]


                last if ++$started >= $extraAllowed;
            }
            if ($started > 0) {
                print STDERR "system type `", $system->system,
                    "': $nrActive active, $max allowed, started $started builds\n";