notifications.t: move to makeAndEvaluateJobset

Dependencies

• [2] 2AM7IAS5 Tighten up 'should exit with return code'
• [3] HWGFAF2B queue runner: test notifications
• [4] LNUINAZC JSON -> JSON::MaybeXS

Change contents

• edit in t/queue-runner/notifications.t at line 1
  [3.347]→[3.348:379](∅→∅)
  − use feature 'unicode_strings';
• edit in t/queue-runner/notifications.t at line 5
  [3.426]

  [3.426]
  + use Test2::V0;
• replacement in t/queue-runner/notifications.t at line 9
  [3.471]→[3.471:492](∅→∅)
  − my %ctx = test_init(
  [3.471]

  [3.492]
  + my $ctx = test_context(
• edit in t/queue-runner/notifications.t at line 20
  [3.763]→[3.763:813](∅→∅)
  −

  − require Hydra::Schema;

  − require Hydra::Model::DB;
• edit in t/queue-runner/notifications.t at line 21
  [3.814]→[3.814:829](∅→∅)
  − use Test2::V0;
• replacement in t/queue-runner/notifications.t at line 23
  [3.885]→[3.885:888](∅→∅)
  − #
  [3.885]

  [3.888]
  + #
• replacement in t/queue-runner/notifications.t at line 39
  [3.1625]→[3.1625:1834](∅→∅)
  − my $outlink = "$ctx{tmpdir}/basic-canbesubstituted";

  − is(system("nix-build '${ctx{jobsdir}}/notifications.nix' -A canbesubstituted --out-link '${outlink}'"), 0, "Building notifications.nix succeeded");
  [3.1625]

  [3.1834]
  + my $outlink = $ctx->tmpdir . "/basic-canbesubstituted";

  + is(system("nix-build '" . $ctx->jobsdir . "/notifications.nix' -A canbesubstituted --out-link '${outlink}'"), 0, "Building notifications.nix succeeded");
• replacement in t/queue-runner/notifications.t at line 43
  [3.2001]→[3.2001:2006](∅→∅)
  −
  [3.2001]

  [3.2006]
  +
• replacement in t/queue-runner/notifications.t at line 53
  [3.2534]→[3.2534:2756](∅→∅)
  − my $outlink = "$ctx{tmpdir}/basic-canbesubstituted";

  − is(system("nix-build '${ctx{jobsdir}}/notifications.nix' -A canbesubstituted --max-jobs 0 --out-link '${outlink}'"), 0, "Building notifications.nix succeeded");
  [3.2534]

  [3.2756]
  + my $outlink = $ctx->tmpdir . "/basic-canbesubstituted";

  + is(system("nix-build '" . $ctx->jobsdir . "/notifications.nix' -A canbesubstituted --max-jobs 0 --out-link '${outlink}'"), 0, "Building notifications.nix succeeded");
• edit in t/queue-runner/notifications.t at line 66
  [3.3298]→[3.3298:3349](∅→∅)
  −

  − my $db = Hydra::Model::DB->new;

  − hydra_setup($db);
• replacement in t/queue-runner/notifications.t at line 67
  [3.3350]→[3.3350:3440](∅→∅)
  − my $jobset = createBaseJobset("queue-runner-notifs", "notifications.nix", $ctx{jobsdir});
  [3.3350]

  [3.3440]
  + my $db = $ctx->db();
• replacement in t/queue-runner/notifications.t at line 74
  [3.3574]→[3.3574:3829](∅→∅)
  − subtest "Evaluation of the jobset" => sub {

  − ok(evalSucceeds($jobset), "Evaluation should exit with return code 0");

  − is(nrQueuedBuildsForJobset($jobset), 2, "Evaluation should result in 2 builds");

  − };

  −

  − my @builds = queuedBuildsForJobset($jobset);

  −
  [3.3574]

  [3.3829]
  + my $builds = $ctx->makeAndEvaluateJobset(

  + expression => "notifications.nix",

  + build => 1

  + );
• replacement in t/queue-runner/notifications.t at line 80
  [3.3888]→[3.3888:3960](∅→∅),[3.3960]→[2.679:745](∅→∅)
  − my ($build) = grep { $_->nixname eq "can-be-substituted" } @builds;

  − ok(runBuild($build), "Build should exit with return code 0");
  [3.3888]

  [3.4019]
  + my $build = $builds->{"canbesubstituted"};
• replacement in t/queue-runner/notifications.t at line 82
  [3.4020]→[3.4020:4215](∅→∅)
  − my $newbuild = $db->resultset('Builds')->find($build->id);

  − is($newbuild->finished, 1, "Build should be finished.");

  − is($newbuild->buildstatus, 0, "Build should have buildstatus 0.");
  [3.4020]

  [3.4215]
  + is($build->finished, 1, "Build should be finished.");

  + is($build->buildstatus, 0, "Build should have buildstatus 0.");
• replacement in t/queue-runner/notifications.t at line 87
  [3.4324]→[3.4324:4418](∅→∅)
  − isnt($newbuild->notificationpendingsince, undef, "The build has a pending notification");
  [3.4324]

  [3.4418]
  + isnt($build->notificationpendingsince, undef, "The build has a pending notification");
• replacement in t/queue-runner/notifications.t at line 97
  [3.4774]→[3.4774:4843](∅→∅),[3.4843]→[2.746:812](∅→∅),[2.812]→[3.4902:5098](∅→∅),[3.4902]→[3.4902:5098](∅→∅)
  − my ($build) = grep { $_->nixname eq "unsubstitutable" } @builds;

  − ok(runBuild($build), "Build should exit with return code 0");

  −

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

  − is($newbuild->finished, 1, "Build should be finished.");

  − is($newbuild->buildstatus, 0, "Build should have buildstatus 0.");
  [3.4774]

  [3.5098]
  + my $build = $builds->{"unsubstitutable"};

  + is($build->finished, 1, "Build should be finished.");

  + is($build->buildstatus, 0, "Build should have buildstatus 0.");
• replacement in t/queue-runner/notifications.t at line 103
  [3.5207]→[3.5207:5301](∅→∅)
  − isnt($newbuild->notificationpendingsince, undef, "The build has a pending notification");
  [3.5207]

  [3.5301]
  + isnt($build->notificationpendingsince, undef, "The build has a pending notification");