File Coverage

blib/lib/TestRail/Utils/Results.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	34	94.1

# PODNAME: TestRail::Utils::Results
# ABSTRACT: Perform batch operations on test results, and analyze the same.

package TestRail::Utils::Results;
$TestRail::Utils::Results::VERSION = '0.050';
use strict;
use warnings;

use Carp qw{confess cluck};
use Scalar::Util qw{blessed};

use TestRail::Utils::Find;

sub bulkMarkResults {
    my ( $opts, $tr ) = @_;
    confess("TestRail handle must be provided as argument 2")
      unless blessed($tr) eq 'TestRail::API';

    my ( $cases, $run ) = TestRail::Utils::Find::getTests( $opts, $tr );
    die "No cases in TestRail to mark!\n" unless $cases;

    my ($status_id) = $tr->statusNamesToIds( $opts->{'set_status_to'} );

    @$cases = map {
        {
            'test_id'   => $_->{'id'},
            'status_id' => $status_id,
            'comment'   => $opts->{'reason'},
            'version'   => $opts->{'version'}
        }
    } @$cases;

    return $tr->bulkAddResults( $run->{'id'}, $cases );
}

1;

__END__