hydra/t/Hydra/Controller/Project/delete.t
2022-01-14 20:36:52 -05:00

58 lines
1.6 KiB
Perl

use strict;
use warnings;
use Setup;
use Test2::V0;
use Catalyst::Test ();
use HTTP::Request;
use HTTP::Request::Common qw(GET POST DELETE);
use JSON::MaybeXS qw(decode_json encode_json);
my $ctx = test_context();
Catalyst::Test->import('Hydra');
my $user = $ctx->db()->resultset('Users')->create({
username => 'alice',
emailaddress => 'root@invalid.org',
password => '!'
});
$user->setPassword('foobar');
$user->userroles->update_or_create({ role => 'admin' });
# Login and save cookie for future requests
my $req = request(POST '/login',
Referer => 'http://localhost/',
Content => {
username => 'alice',
password => 'foobar'
}
);
is($req->code, 302, "Logging in gets a 302");
my $cookie = $req->header("set-cookie");
subtest "Deleting a simple project" => sub {
my $builds = $ctx->makeAndEvaluateJobset(
expression => "basic.nix"
);
my $project = $builds->{"empty_dir"}->project;
my $responseNoAuth = request(DELETE "/project/${\$project->name}");
is($responseNoAuth->code, 403, "Deleting a project without auth returns a 403");
my $responseAuthed = request(DELETE "/project/${\$project->name}",
Cookie => $cookie,
Accept => "application/json"
);
is($responseAuthed->code, 200, "Deleting a project with auth returns a 200");
my $response = request(GET "/project/${\$project->name}");
is($response->code, 404, "Then getting the project returns a 404");
is(
$ctx->db->resultset('Builds')->find({ id => $builds->{"empty_dir"}->id }),
undef,
"The build isn't in the database anymore"
);
};
done_testing;