grahamc/hydra2 - Change 3DNFPPSLMAWLZFDXL4QIANI7AFGESDIHQLGD4Z2QWX2GETESPHKQC

notifications.t: move to makeAndEvaluateJobset

Created by Graham Christensen on December 14, 2021

3DNFPPSLMAWLZFDXL4QIANI7AFGESDIHQLGD4Z2QWX2GETESPHKQC

Dependencies

In channels

main

Change contents

Deletion in t/queue-runner/notifications.t at line 1 [3.347]
B:BD[3.347] → [3.348:379]
```
use feature 'unicode_strings';
```
Insertion in t/queue-runner/notifications.t at line 5 [3.347]
[3.426]
[3.426]
```
use Test2::V0;
```
Replacement in t/queue-runner/notifications.t at line 9 [3.347]
B:BD[3.471] → [3.471:492]
```
my %ctx = test_init(
```
[3.471]
[3.492]
```
my $ctx = test_context(
```
Deletion in t/queue-runner/notifications.t at line 20 [3.347]
B:BD[3.763] → [3.763:813]
```
require Hydra::Schema;
require Hydra::Model::DB;
```
Deletion in t/queue-runner/notifications.t at line 21 [3.347]
B:BD[3.814] → [3.814:829]
```
use Test2::V0;
```
Replacement in t/queue-runner/notifications.t at line 23 [3.347]
B:BD[3.885] → [3.885:888]
```
# 
```
[3.885]
[3.888]
```
#
```

Replacement in t/queue-runner/notifications.t at line 39 [3.347]

B:BD[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.347]
B:BD[3.2001] → [3.2001:2006]
```
    
```
[3.2001]
[3.2006]

Replacement in t/queue-runner/notifications.t at line 53 [3.347]

B:BD[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");

Deletion in t/queue-runner/notifications.t at line 66 [3.347]
B:BD[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.347]

B:BD[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.347]

B:BD[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.347]

B:BD[3.3888] → [3.3888:3960]

B:BD[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.347]

B:BD[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.347]

B:BD[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.347]

B:BD[3.4774] → [3.4774:4843]

B:BD[3.4843] → [2.746:812]

∅:D[2.812] → [3.4902:5098]

B:BD[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.347]

B:BD[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");

notifications.t: move to makeAndEvaluateJobset

Dependencies

In channels

Change contents

Deletion in t/queue-runner/notifications.t at line 1 [3.347]

Insertion in t/queue-runner/notifications.t at line 5 [3.347]

Replacement in t/queue-runner/notifications.t at line 9 [3.347]

Deletion in t/queue-runner/notifications.t at line 20 [3.347]

Deletion in t/queue-runner/notifications.t at line 21 [3.347]

Replacement in t/queue-runner/notifications.t at line 23 [3.347]