1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-12-05 03:23:09 +00:00
os-autoinst-distri-fedora/lib/bugzilla.pm
Adam Williamson 1a65993d36 Add a perltidy check and apply it to the entire codebase
Signed-off-by: Adam Williamson <awilliam@redhat.com>
2022-07-28 14:38:38 -07:00

83 lines
2.4 KiB
Perl

package bugzilla;
use strict;
use base 'Exporter';
use Exporter;
use lockapi;
use testapi;
use utils;
use POSIX qw(strftime);
use JSON;
use REST::Client;
our @EXPORT = qw(convert_to_bz_timestamp get_newest_bug check_bug_status_field close_notabug);
sub start_bugzilla_client {
# Start a Bugzilla REST client for setting up communication.
# This is a local subroutine, not intended for export.
my $bugzilla = REST::Client->new();
$bugzilla->setHost("https://bugzilla.redhat.com");
return $bugzilla;
}
sub convert_to_bz_timestamp {
# This subroutine takes the epoch time and converts it to
# the Bugzilla timestamp format (YYYY-MM-DDTHH:MM:SS)
# in the GMT time zone.
my $epochtime = shift;
my $bz_stamp = strftime("%FT%T", gmtime($epochtime));
return $bz_stamp;
}
sub get_newest_bug {
# This subroutine makes an API call to Bugzilla and
# fetches the newest bug that have been created.
# This will be the bug created by Anaconda in this
# test run.
my ($timestamp, $login) = @_;
$timestamp = convert_to_bz_timestamp($timestamp);
my $bugzilla = start_bugzilla_client();
my $api_call = $bugzilla->GET("/rest/bug?creator=$login&status=NEW&created_after=$timestamp");
my $rest_json = decode_json($api_call->responseContent());
my $last_id;
eval {
$last_id = $rest_json->{bugs}[-1]->{id};
1;
} or do {
record_soft_failure "Bugzilla returned an empty list of bugs which is unexpected!";
$last_id = 0;
};
return $last_id;
}
sub check_bug_status_field {
# This will check that the status field matches the one
# tested status. Arguments are bug_id and status.
my ($bug_id, $status) = @_;
my $bugzilla = start_bugzilla_client();
my $api_call = $bugzilla->GET("/rest/bug/$bug_id");
my $rest_json = decode_json($api_call->responseContent());
if ($rest_json->{bugs}[0]->{status} eq $status) {
return 1;
}
else {
return 0;
}
}
sub close_notabug {
# This will call Bugzilla and close the bug with the requested
# bug id as a NOTABUG.
my ($bug_id, $key) = @_;
my $bugzilla = start_bugzilla_client();
my $api_call = $bugzilla->PUT("/rest/bug/$bug_id?api_key=$key&status=CLOSED&resolution=NOTABUG");
my $rest_json = decode_json($api_call->responseContent());
if ($rest_json->{bugs}[0]->{changes}->{status}->{added} ne "CLOSED") {
return 0;
}
else {
return 1;
}
}