forked from lix-project/hydra
108 lines
4.6 KiB
Perl
108 lines
4.6 KiB
Perl
use feature 'unicode_strings';
|
|
use strict;
|
|
use warnings;
|
|
use Setup;
|
|
use Test2::V0;
|
|
use File::Copy;
|
|
use Hydra::PostgresListener;
|
|
|
|
my $ctx = test_context(
|
|
hydra_config => q|
|
|
# No caching for PathInput plugin, otherwise we get wrong values
|
|
# (as it has a 30s window where no changes to the file are considered).
|
|
path_input_cache_validity_seconds = 0
|
|
|
|
|
);
|
|
|
|
my $dbh = $ctx->db()->storage->dbh;
|
|
my $listener = Hydra::PostgresListener->new($dbh);
|
|
|
|
$listener->subscribe("cached_build_finished");
|
|
$listener->subscribe("cached_build_queued");
|
|
$listener->subscribe("build_queued");
|
|
$listener->subscribe("eval_failed");
|
|
$listener->subscribe("eval_cached");
|
|
$listener->subscribe("eval_added");
|
|
$listener->subscribe("eval_started");
|
|
$listener->subscribe("builds_added");
|
|
|
|
|
|
my $jobsetdir = $ctx->tmpdir . '/jobset';
|
|
mkdir($jobsetdir);
|
|
copy($ctx->jobsdir . '/hydra-eval-notifications.nix', "$jobsetdir/default.nix");
|
|
|
|
my $builds = $ctx->makeAndEvaluateJobset(
|
|
expression => "default.nix",
|
|
jobsdir => $jobsetdir,
|
|
build => 0
|
|
);
|
|
|
|
subtest "on the initial evaluation" => sub {
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_started", "every eval starts with a notification");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "build_queued", "expect 1/4 builds being queued");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "build_queued", "expect 2/4 builds being queued");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "build_queued", "expect 3/4 builds being queued");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "build_queued", "expect 4/4 builds being queued");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_added", "the evaluation has completed");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "builds_added", "new builds have been scheduled");
|
|
is($listener->block_for_messages(0)->(), undef, "there are no more messages from the evaluator");
|
|
};
|
|
|
|
subtest "on a subsequent, totally cached / unchanged evaluation" => sub {
|
|
ok(evalSucceeds($builds->{"variable-job"}->jobset), "evaluating for the second time");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_started", "an evaluation has started");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_cached", "the evaluation finished and nothing changed");
|
|
is($listener->block_for_messages(0)->(), undef, "there are no more messages from the evaluator");
|
|
};
|
|
|
|
subtest "on a fresh evaluation with changed sources" => sub {
|
|
open(my $fh, ">>", "${jobsetdir}/default.nix") or die "didn't open?";
|
|
say $fh "\n";
|
|
close $fh;
|
|
|
|
ok(runBuild($builds->{"stable-job-passing"}), "building the stable passing job");
|
|
$builds->{"stable-job-passing"}->discard_changes();
|
|
|
|
ok(runBuild($builds->{"stable-job-failing"}), "building the stable failing job");
|
|
$builds->{"stable-job-failing"}->discard_changes();
|
|
|
|
ok(evalSucceeds($builds->{"variable-job"}->jobset), "evaluating for the third time");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_started", "the evaluation started");
|
|
|
|
# The order of builds is randomized when writing to the database,
|
|
# so we can't expect the list in any specific order here.
|
|
is(
|
|
[sort(
|
|
$listener->block_for_messages(0)->()->{"channel"},
|
|
$listener->block_for_messages(0)->()->{"channel"},
|
|
$listener->block_for_messages(0)->()->{"channel"},
|
|
$listener->block_for_messages(0)->()->{"channel"}
|
|
)],
|
|
[
|
|
"build_queued",
|
|
"cached_build_finished",
|
|
"cached_build_finished",
|
|
"cached_build_queued",
|
|
],
|
|
"we get a notice that a build is queued, one is still queued from a previous eval"
|
|
);
|
|
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_added", "a new evaluation was added");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "builds_added", "a new build was added");
|
|
is($listener->block_for_messages(0)->(), undef, "there are no more messages from the evaluator");
|
|
};
|
|
|
|
subtest "on a fresh evaluation with corrupted sources" => sub {
|
|
open(my $fh, ">>", "${jobsetdir}/default.nix") or die "didn't open?";
|
|
say $fh "this is not valid nix code!\n";
|
|
close $fh;
|
|
|
|
ok(evalFails($builds->{"variable-job"}->jobset), "evaluating the corrupted job");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_started", "the evaluation started");
|
|
is($listener->block_for_messages(0)->()->{"channel"}, "eval_failed", "the evaluation failed");
|
|
is($listener->block_for_messages(0)->(), undef, "there are no more messages from the evaluator");
|
|
|
|
};
|
|
|
|
done_testing;
|