hydra/t/Hydra/Controller/Root/status.t

89 lines
2.7 KiB
Perl
Raw Normal View History

use strict;
use warnings;
use Setup;
use Data::Dumper;
use Test2::V0;
2022-01-14 21:19:20 +00:00
use JSON::MaybeXS qw(decode_json);
use Catalyst::Test ();
use HTTP::Request::Common;
2022-01-14 21:19:20 +00:00
my $ctx = test_context();
2022-01-14 21:19:20 +00:00
Catalyst::Test->import('Hydra');
2022-01-14 21:19:20 +00:00
my $builds = $ctx->makeAndEvaluateJobset(
expression => "basic.nix"
);
2022-01-14 20:19:46 +00:00
subtest "/machines" => sub {
my $response = request(GET '/machines');
ok($response->is_success, "The page showing the machine status 200's.");
};
subtest "/queue-runner-status" => sub {
my $global = request(GET '/queue-runner-status');
ok($global->is_success, "The page showing the queue runner status 200's.");
};
2022-01-14 20:19:41 +00:00
subtest "/queue-summary" => sub {
my $response = request(GET '/queue-summary');
ok($response->is_success, "The page showing the queue summary 200's.");
};
subtest "/queue" => sub {
my $response = request(GET '/queue', Accept => 'application/json');
ok($response->is_success, "The page showing the queue 200's.");
my $data;
my $valid_json = lives { $data = decode_json($response->content); };
ok($valid_json, "We get back valid JSON.");
if (!$valid_json) {
use Data::Dumper;
print STDERR Dumper $response->content;
}
};
2022-01-14 21:19:20 +00:00
subtest "/search" => sub {
my $build = $builds->{"empty_dir"};
my ($build_output_out) = $build->buildoutputs->find({ name => "out" });
subtest "searching for projects" => sub {
my $response = request(GET "/search?query=${\$build->project->name}");
is($response->code, 200, "The search page 200's.");
};
subtest "searching for jobsets" => sub {
my $response = request(GET "/search?query=${\$build->jobset->name}");
is($response->code, 200, "The search page 200's.");
};
subtest "searching for jobs" => sub {
my $response = request(GET "/search?query=${\$build->job}");
is($response->code, 200, "The search page 200's.");
};
subtest "searching for output paths" => sub {
my $response = request(GET "/search?query=${\$build_output_out->path}");
is($response->code, 200, "The search page 200's.");
};
subtest "searching for derivation path" => sub {
my $response = request(GET "/search?query=${\$build->drvpath}");
is($response->code, 200, "The search page 200's.");
};
};
subtest "/status" => sub {
my $response = request(GET '/status', Accept => 'application/json');
ok($response->is_success, "The page showing the status 200's.");
my $data;
my $valid_json = lives { $data = decode_json($response->content); };
ok($valid_json, "We get back valid JSON.");
if (!$valid_json) {
use Data::Dumper;
print STDERR Dumper $response->content;
}
};
done_testing;