ma27/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

t/RunCommand: init http.t

Browse source 
Test that we can indeed visit the pages of a valid runcommand log and
not of an invalid one.
This commit is contained in:
Cole Helbling 2022-01-26 11:50:16 -08:00
parent 47c1f89d5a
commit 38896db6b6
1 changed files with 50 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
t/Hydra/Plugin/RunCommand/http.t Normal file
View file

@ -0,0 +1,50 @@
use feature 'unicode_strings';
use strict;
use warnings;
use Setup;
use Test2::V0;
my $ctx = test_context(
hydra_config => q|
<runcommand>
command = cp "$HYDRA_JSON" "$HYDRA_DATA/joboutput.json"
</runcommand>
|);
require Catalyst::Test;
Catalyst::Test->import('Hydra');
use HTTP::Request::Common qw(GET);
my $db = $ctx->db();
my $builds = $ctx->makeAndEvaluateJobset(
expression => "runcommand.nix",
build => 1,
);
my $build = $builds->{"metrics"};
ok(sendNotifications(), "Notifications execute successfully.");
my $runlog = $build->runcommandlogs->find({});
ok($runlog->uuid, "The log's uuid is saved.");
my $get1 = request(GET '/build/' . $build->id . '/runcommandlog/' . $runlog->uuid);
ok($get1->is_success, "GET /build/{id}/runcommandlog/{uuid} succeeded.");
my $get2 = request(GET '/runcommandlog/' . $runlog->uuid);
ok($get2->is_success, "GET /runcommandlog/{uuid} succeeded.");
my $get3 = request(GET '/runcommandlog/some-invalid-or-nonexistent-uuid');
ok(!$get3->is_success, "GET'ing invalid uuid failed.");
my $get4a = request(GET '/build/' . $build->id . '/runcommandlog/' . $runlog->uuid . '/raw');
is($get4a->code, 302, "GET /build/{id}/runcommandlog/{uuid}/raw is a redirect.");
my $get4b = request(GET $get4a->header('location'));
ok($get4b->is_success, "GET /build/{id}/runcommandlog/{uuid}/raw succeeded.");
my $get5a = request(GET '/build/' . $build->id . '/runcommandlog/some-invalid-or-nonexistent-uuid/raw');
is($get5a->code, 302, "GET /raw of invalid uuid is a redirect.");
my $get5b = request(GET $get5a->header("location"));
ok(!$get5b->is_success, "GET /raw of invalid uuid failed.");
done_testing;