the-distro/hydra
1
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Test /search

Browse source
This commit is contained in:
Graham Christensen 2022-01-14 16:19:20 -05:00
parent 42a871e413
commit e0e8840d8f
1 changed files with 38 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
t/Hydra/Controller/Root/status.t
View file

@ -2,26 +2,18 @@ use strict;
use warnings;
use Setup;
use Data::Dumper;
use JSON::MaybeXS qw(decode_json);
my %ctx = test_init();
require Hydra::Schema;
require Hydra::Model::DB;
require Hydra::Helper::Nix;
use Test2::V0;
require Catalyst::Test;
use JSON::MaybeXS qw(decode_json);
use Catalyst::Test ();
use HTTP::Request::Common;
my $ctx = test_context();
Catalyst::Test->import('Hydra');
my $db = Hydra::Model::DB->new;
hydra_setup($db);
my $project = $db->resultset('Projects')->create({name => "tests", displayname => "", owner => "root"});
my $jobset = createBaseJobset("basic", "basic.nix", $ctx{jobsdir});
ok(evalSucceeds($jobset), "Evaluating jobs/basic.nix should exit with return code 0");
my $builds = $ctx->makeAndEvaluateJobset(
expression => "basic.nix"
);
subtest "/machines" => sub {
my $response = request(GET '/machines');
@ -50,6 +42,36 @@ subtest "/queue" => sub {
print STDERR Dumper $response->content;
}
};
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.");