package Tapper::Reports::Web::Controller::Tapper::Testplan;
our $AUTHORITY = 'cpan:TAPPER';
$Tapper::Reports::Web::Controller::Tapper::Testplan::VERSION = '5.0.12';
use parent 'Tapper::Reports::Web::Controller::Base';
use common::sense;
## no critic (RequireUseStrict)
use DateTime::Format::Natural;
use Tapper::Reports::Web::Util::Filter::Testplan;
use Tapper::Model 'model';
use Tapper::Cmd::Testplan;
sub auto :Private
{
my ( $self, $c ) = @_;
$c->forward('/tapper/testplan/prepare_navi');
}
sub base : Chained PathPrefix CaptureArgs(0) { }
sub id : Chained('base') PathPart('') CaptureArgs(1)
{
my ( $self, $c, $id ) = @_;
$c->stash(testplan => $c->model('TestrunDB')->resultset('TestplanInstance')->find($id));
if (not $c->stash->{testplan}) {
$c->response->body(qq(No testplan instance with id "$id" found in the database!));
return;
}
}
sub rerun : Chained('id') PathPart('rerun') Args(0)
{
my ( $self, $c ) = @_;
my $cmd = Tapper::Cmd::Testplan->new();
my $retval = $cmd->rerun($c->stash->{testplan}->id);
if (not $retval) {
$c->response->body(qq(Can not rerun testplan));
return;
}
$c->stash(testplan => $c->model('TestrunDB')->resultset('TestplanInstance')->find($retval));
}
sub delete : Chained('id') PathPart('delete')
{
my ( $self, $c, $force) = @_;
my $cmd = Tapper::Cmd::Testplan->new();
if ($force) {
$c->stash->{force} = 1;
my $retval = $cmd->del($c->stash->{testplan}->id);
if ($retval) {
$c->response->body(qq(Can not delete testplan: $retval));
return;
}
}
}
sub index :Path :Args()
{
my ( $self, $c, @args ) = @_;
my $filter = Tapper::Reports::Web::Util::Filter::Testplan->new(context => $c);
my $filter_condition = $filter->parse_filters(\@args, ['days', 'date', 'path', 'name']);
$c->stash->{title} = "Testplan list";
$c->stash->{testplan_id} = undef;
if ($filter_condition->{error}) {
$c->flash->{error_msg} = join("; ", @{$filter_condition->{error}});
$c->res->redirect("/tapper/testplan/days/2");
}
my $days = $filter_condition->{days} || 6;
$c->stash->{days} = $days;
$c->stash->{testplan_days} = [];
my $today = DateTime::Format::Natural->new->parse_datetime("today at midnight");
my $dtf = $c->model("TestrunDB")->storage->datetime_parser;
# testplans after "today at midnight"
# handling them special makes later code more readable
{
my $todays_instances = model('TestrunDB')->resultset('TestplanInstance')->search
(
$filter_condition->{early},
{ order_by => 'me.id desc' }
);
$todays_instances = $todays_instances->search({created_at => { '>' => $dtf->format_datetime($today) }});
my @details = $self->get_testrun_details($todays_instances);
if (@details) {
push @{$c->stash->{testplan_days}}, { date => $today,
testplan_instances => \@details,
};
}
}
for my $date (1..($days-1)) {
my $yesterday = $today->clone->subtract( days => 1 );
my $todays_instances = model('TestrunDB')->resultset('TestplanInstance')->search
($filter_condition->{early},
{ order_by => 'me.id desc' }
);
$todays_instances = $todays_instances->search({'-and' => [{created_at => { '>' => $dtf->format_datetime($yesterday) }},
{created_at => {'<=' => $dtf->format_datetime($today) }},
]});
my @details = $self->get_testrun_details($todays_instances);
if (@details) {
push @{$c->stash->{testplan_days}}, { date => $today,
testplan_instances => \@details,
};
}
$today = $yesterday;
}
return;
}
sub get_testrun_details
{
my ($self, $todays_instances) = @_;
return unless $todays_instances and $todays_instances->can('next');
my @testplan_instances;
while ( my $instance = $todays_instances->next) {
my $details = {};
foreach my $col ($instance->columns) {
$details->{$col} = $instance->$col;
}
$details->{count_unfinished} = int grep {$_->testrun_scheduling and
$_->testrun_scheduling->status ne 'finished'} $instance->testruns->all;
my $testruns = $instance->testruns;
TESTRUN:
while ( my $testrun = $testruns->next) {
next TESTRUN if $testrun->testrun_scheduling->status ne 'finished';
my $stats = model('TestrunDB')->resultset('ReportgroupTestrunStats')->search({testrun_id => $testrun->id}, {rows => 1})->first;
$details->{count_fail}++ if $stats and $stats->success_ratio < 100;
$details->{count_pass}++ if $stats and $stats->success_ratio == 100;
}
push @testplan_instances, $details;
}
return @testplan_instances;
}
sub prepare_navi : Private
{
my ( $self, $c ) = @_;
$c->stash->{navi} = [];
my %args = @{$c->req->arguments};
$c->stash->{navi} = [
{
title => "Matrix Overview",
href => "/tapper/testplan/taskjuggler/",
},
{
title => "Testplan by date",
href => "",
subnavi => [
{
title => "today",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 1),
},
{
title => "2 days",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 2),
},
{
title => "1 week",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 7),
},
{
title => "2 weeks",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 14),
},
{
title => "3 weeks",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 21),
},
{
title => "1 month",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 31),
},
{
title => "2 months",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 62),
},
{
title => "4 months",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 124),
},
{
title => "6 months",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 182),
},
{
title => "12 months",
href => "/tapper/testplan/".$self->prepare_filter_path($c, 365),
},
],
},
];
push @{$c->stash->{navi}}, {title => 'Active Filters',
subnavi => [
map {
{
title => "$_: ".$args{$_},
href => "/tapper/reports/".$self->reduced_filter_path(\%args, $_),
image => "/tapper/static/images/minus.png",
}
} keys %args ]};
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Tapper::Reports::Web::Controller::Tapper::Testplan
=head1 DESCRIPTION
Catalyst Controller.
=head2 index
=head2 get_testrun_details
Get the details of the testruns belonging to the testplan instance given
as argument.
@param DBIC ResultSet TestplanInstance - testplan instances of current day
@returnlist success - array ref of lists of details of testruns in given instances
@returnlist error - empty list
=head1 NAME
Tapper::Reports::Web::Controller::Tapper::Testplan - Catalyst Controller for test plans
=head1 METHODS
=head2 index
=head1 AUTHOR
AMD OSRC Tapper Team, C<< <tapper at amd64.org> >>
=head1 LICENSE
This program is released under the following license: freebsd
=head1 AUTHORS
=over 4
=item *
AMD OSRC Tapper Team <tapper@amd64.org>
=item *
Tapper Team <tapper-ops@amazon.com>
=back
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2016 by Advanced Micro Devices, Inc..
This is free software, licensed under:
The (two-clause) FreeBSD License
=cut