use strict; use warnings; use Setup; use Test2::V0; require Catalyst::Test; use HTTP::Request::Common qw(POST PUT GET DELETE); use JSON::MaybeXS qw(decode_json encode_json); my $ctx = test_context(); Catalyst::Test->import('Hydra'); # Create a user to log in to my $user = $ctx->db->resultset('Users')->create({ username => 'alice', emailaddress => 'root@invalid.org', password => '!' }); $user->setPassword('foobar'); $user->userroles->update_or_create({ role => 'admin' }); subtest "can't enable dynamic RunCommand when disabled by server" => sub { my $builds = $ctx->makeAndEvaluateJobset( expression => "runcommand-dynamic.nix", build => 1 ); my $build = $builds->{"runCommandHook.example"}; my $project = $build->project; my $project_name = $project->name; my $jobset = $build->jobset; my $jobset_name = $jobset->name; is($project->enable_dynamic_run_command, 0, "dynamic RunCommand is disabled on projects by default"); is($jobset->enable_dynamic_run_command, 0, "dynamic RunCommand is disabled on jobsets by default"); my $req = request(POST '/login', Referer => 'http://localhost/', Content => { username => 'alice', password => 'foobar' } ); is($req->code, 302, "logged in successfully"); my $cookie = $req->header("set-cookie"); subtest "can't enable dynamic RunCommand on project" => sub { my $projectresponse = request(GET "/project/$project_name", Accept => 'application/json', Content_Type => 'application/json', Cookie => $cookie, ); my $projectjson = decode_json($projectresponse->content); $projectjson->{enable_dynamic_run_command} = 1; my $projectupdate = request(PUT "/project/$project_name", Accept => 'application/json', Content_Type => 'application/json', Cookie => $cookie, Content => encode_json($projectjson) ); $projectresponse = request(GET "/project/$project_name", Accept => 'application/json', Content_Type => 'application/json', Cookie => $cookie, ); $projectjson = decode_json($projectresponse->content); is($projectupdate->code, 400); like( $projectupdate->content, qr/Dynamic RunCommand is not/, "failed to change enable_dynamic_run_command, not any other error" ); is($projectjson->{enable_dynamic_run_command}, JSON::MaybeXS::false); }; subtest "can't enable dynamic RunCommand on jobset" => sub { my $jobsetresponse = request(GET "/jobset/$project_name/$jobset_name", Accept => 'application/json', Content_Type => 'application/json', Cookie => $cookie, ); my $jobsetjson = decode_json($jobsetresponse->content); $jobsetjson->{enable_dynamic_run_command} = 1; my $jobsetupdate = request(PUT "/jobset/$project_name/$jobset_name", Accept => 'application/json', Content_Type => 'application/json', Cookie => $cookie, Content => encode_json($jobsetjson) ); $jobsetresponse = request(GET "/jobset/$project_name/$jobset_name", Accept => 'application/json', Content_Type => 'application/json', Cookie => $cookie, ); $jobsetjson = decode_json($jobsetresponse->content); is($jobsetupdate->code, 400); like( $jobsetupdate->content, qr/Dynamic RunCommand is not/, "failed to change enable_dynamic_run_command, not any other error" ); is($jobsetjson->{enable_dynamic_run_command}, JSON::MaybeXS::false); }; }; done_testing;