Fix indentation

Dependencies

• [2] YDW2NUIW Fix "make check"
• [3] 5SMQ2PLK Fix tests
• [4] 3RL7VFKE Add tests for "git describe --long".
• [5] G2ZB6464 first test, not yet in buildprocess
• [6] P43FHUUV there are 43 tests
• [7] D6EL7KR6 Fix broken test
• [8] HE3GX5IP Optimize fetch-git.
• [9] FAIJDQKZ
• [10] HX4QYOYA add first evaluations tests
• [11] RBZRCTAL hydra: fixed and re-enabled evaluation tests
• [12] WFJ3ZPRM add tests for scm inputs
• [13] DES4PSRL add basic query tests for JobStatus/LatestSucceeded/ActiveJobs
• [14] ZHBEOOUQ show evaluation errors in log of tests
• [15] AK66K4KY Fix the test
• [16] W6J4PVRP remove debug statement
• [17] SBKX3YH2 cleanup

Change contents

• replacement in tests/evaluation-tests.pl at line 29
  [5.906]→[5.906:1123](∅→∅),[5.1123]→[2.52:210](∅→∅)
  − ok(runBuild($build), "Build '".$build->job->name."' from jobs/basic.nix should exit with code 0");

  − my $newbuild = $db->resultset('Builds')->find($build->id);

  − my $expected = $build->job->name eq "fails" ? 1 : 0;

  − ok($newbuild->finished == 1 && $newbuild->buildstatus == $expected, "Build '".$build->job->name."' from jobs/basic.nix should have buildstatus $expected");
  [5.906]

  [5.1270]
  + ok(runBuild($build), "Build '".$build->job->name."' from jobs/basic.nix should exit with code 0");

  + my $newbuild = $db->resultset('Builds')->find($build->id);

  + my $expected = $build->job->name eq "fails" ? 1 : 0;

  + ok($newbuild->finished == 1 && $newbuild->buildstatus == $expected, "Build '".$build->job->name."' from jobs/basic.nix should have buildstatus $expected");
• replacement in tests/evaluation-tests.pl at line 41
  [5.245]→[5.245:407](∅→∅),[5.407]→[2.211:353](∅→∅)
  − ok(runBuild($build), "Build '".$build->job->name."' from jobs/basic.nix should exit with code 0");

  − my $newbuild = $db->resultset('Builds')->find($build->id);

  − ok($newbuild->finished == 1 && $newbuild->buildstatus == 0, "Build '".$build->job->name."' from jobs/basic.nix should have buildstatus 0");
  [5.245]

  [5.538]
  + ok(runBuild($build), "Build '".$build->job->name."' from jobs/basic.nix should exit with code 0");

  + my $newbuild = $db->resultset('Builds')->find($build->id);

  + ok($newbuild->finished == 1 && $newbuild->buildstatus == 0, "Build '".$build->job->name."' from jobs/basic.nix should have buildstatus 0");
• replacement in tests/evaluation-tests.pl at line 49
  [5.887]→[5.887:1049](∅→∅),[5.1049]→[2.354:496](∅→∅)
  − ok(runBuild($build), "Build '".$build->job->name."' from jobs/basic.nix should exit with code 0");

  − my $newbuild = $db->resultset('Builds')->find($build->id);

  − ok($newbuild->finished == 1 && $newbuild->buildstatus == 0, "Build '".$build->job->name."' from jobs/basic.nix should have buildstatus 0");
  [5.887]

  [5.1180]
  + ok(runBuild($build), "Build '".$build->job->name."' from jobs/basic.nix should exit with code 0");

  + my $newbuild = $db->resultset('Builds')->find($build->id);

  + ok($newbuild->finished == 1 && $newbuild->buildstatus == 0, "Build '".$build->job->name."' from jobs/basic.nix should have buildstatus 0");
• replacement in tests/evaluation-tests.pl at line 109
  [4.1791]→[4.1791:2025](∅→∅)
  − my $scmName = $scm->{"name"};

  − my $nixexpr = $scm->{"nixexpr"};

  − my $type = $scm->{"type"};

  − my $uri = $scm->{"uri"};

  − my $update = $scm->{"update"};

  − $jobset = createJobsetWithOneInput($scmName, $nixexpr, "src", $type, $uri);
  [4.1791]

  [5.0]
  + my $scmName = $scm->{"name"};

  + my $nixexpr = $scm->{"nixexpr"};

  + my $type = $scm->{"type"};

  + my $uri = $scm->{"uri"};

  + my $update = $scm->{"update"};

  + $jobset = createJobsetWithOneInput($scmName, $nixexpr, "src", $type, $uri);
• replacement in tests/evaluation-tests.pl at line 116
  [5.1]→[4.2026:2150](∅→∅)
  − my $state = 0;

  − my $q = 0;

  − my ($loop, $updated) = updateRepository($scmName, $update);

  − while($loop) {

  − my $c = 0;
  [5.1]

  [5.5291]
  + my $state = 0;

  + my $q = 0;

  + my ($loop, $updated) = updateRepository($scmName, $update);

  + while($loop) {

  + my $c = 0;
• replacement in tests/evaluation-tests.pl at line 122
  [5.5292]→[4.2151:2312](∅→∅)
  − # Verify that it can be fetched and possibly queued.

  − ok(evalSucceeds($jobset), "$scmName:$state.$c: Evaluating nix-expression."); $c++;
  [5.5292]

  [4.2312]
  + # Verify that it can be fetched and possibly queued.

  + ok(evalSucceeds($jobset), "$scmName:$state.$c: Evaluating nix-expression."); $c++;
• replacement in tests/evaluation-tests.pl at line 125
  [4.2313]→[4.2313:2657](∅→∅)
  − # Verify that the evaluation has queued a new job and evaluate again to ...

  − if ($updated) {

  − $q++;

  − ok(nrQueuedBuildsForJobset($jobset) == $q, "$scmName:$state.$c: Expect $q jobs in the queue."); $c++;

  − ok(evalSucceeds($jobset), "$scmName:$state.$c: Evaluating nix-expression again."); $c++;

  − }
  [4.2313]

  [4.2657]
  + # Verify that the evaluation has queued a new job and evaluate again to ...

  + if ($updated) {

  + $q++;

  + ok(nrQueuedBuildsForJobset($jobset) == $q, "$scmName:$state.$c: Expect $q jobs in the queue."); $c++;

  + ok(evalSucceeds($jobset), "$scmName:$state.$c: Evaluating nix-expression again."); $c++;

  + }
• replacement in tests/evaluation-tests.pl at line 132
  [4.2658]→[4.2658:2827](∅→∅)
  − # ... check that it is deterministic and not queued again.

  − ok(nrQueuedBuildsForJobset($jobset) == $q, "$scmName:$state.$c: Expect $q jobs in the queue."); $c++;
  [4.2658]

  [4.2827]
  + # ... check that it is deterministic and not queued again.

  + ok(nrQueuedBuildsForJobset($jobset) == $q, "$scmName:$state.$c: Expect $q jobs in the queue."); $c++;
• replacement in tests/evaluation-tests.pl at line 135
  [4.2828]→[4.2828:2935](∅→∅)
  − $state++;

  − ($loop, $updated) = updateRepository($scmName, $update, getcwd . "/$scmName-repo/");

  − }
  [4.2828]

  [5.5394]
  + $state++;

  + ($loop, $updated) = updateRepository($scmName, $update, getcwd . "/$scmName-repo/");

  + }
• replacement in tests/query-all-tables.pl at line 13
  [5.560]→[5.31:79](∅→∅),[5.79]→[5.31:257](∅→∅),[5.257]→[3.324:335](∅→∅),[3.335]→[5.258:351](∅→∅),[5.153]→[5.258:351](∅→∅),[5.244]→[5.718:722](∅→∅),[5.351]→[5.718:722](∅→∅),[5.718]→[5.718:722](∅→∅)
  − my $title = "Basic select query for $source";

  − if ($source eq "SchemaVersion") {

  − ok(scalar($db->resultset($source)->all) == 1, $title);

  − } elsif( $source !~ m/^(LatestSucceeded|JobStatus|ActiveJobs)/) {

  − ok(scalar($db->resultset($source)->all) == 0, $title);

  − } else {

  − ok(scalar($db->resultset($source)->search({},{ bind => ["", "", ""] })) == 0, $title);

  − }
  [5.560]

  [5.722]
  + my $title = "Basic select query for $source";

  + if ($source eq "SchemaVersion") {

  + ok(scalar($db->resultset($source)->all) == 1, $title);

  + } elsif( $source !~ m/^(LatestSucceeded|JobStatus|ActiveJobs)/) {

  + ok(scalar($db->resultset($source)->all) == 0, $title);

  + } else {

  + ok(scalar($db->resultset($source)->search({},{ bind => ["", "", ""] })) == 0, $title);

  + }
• edit in tests/query-all-tables.pl at line 22
  [5.724]→[5.245:246](∅→∅)
  −