File Coverage

bin/testrail-report

Criterion	Covered	Total	%
statement	39	40	97.5
branch	8	12	66.6
condition	7	23	30.4
subroutine	7	7	100.0
pod			n/a
total	61	82	74.3

#!/usr/bin/perl
# ABSTRACT: Upload your TAP results to TestRail after they've finished
# PODNAME: TestRail::Bin::Report

package TestRail::Bin::Report;
$TestRail::Bin::Report::VERSION = '0.050';
use strict;
use warnings;

use TestRail::Utils;
use Getopt::Long qw{GetOptionsFromArray};
use Test::Rail::Parser;
use File::HomeDir qw{my_home};

if ( !caller() ) {
    my ( $out, $code ) = run( 'args' => \@ARGV );
    print $out;
    exit $code;
}

#Main loop------------
sub run {
    my %params = @_;
    my %opts;

    #parse switches
    GetOptionsFromArray(
        $params{'args'},
        'run=s'          => \$opts{run},
        'apiurl=s'       => \$opts{apiurl},
        'password=s'     => \$opts{password},
        'user=s'         => \$opts{user},
        'project=s'      => \$opts{project},
        'step-results=s' => \$opts{step_results},
        'config=s@'      => \$opts{configs},
        'plan=s'         => \$opts{plan},
        'version=s'      => \$opts{version},
        'testsuite_id=i' => \$opts{testsuite_id},
        'testsuite=s'    => \$opts{testsuite},
        'section=s@'     => \$opts{sections},
        'autoclose'      => \$opts{autoclose},
        'e|encoding=s'   => \$opts{encoding},
        'max_tries=i'    => \$opts{max_tries},
        'help'           => \$opts{help},
    );

    if ( $opts{help} ) { return ( '', TestRail::Utils::help() ); }
    $opts{'browser'} = $params{'browser'};

    #Parse config file if we are missing api url/key or user
    my $homedir = my_home() || '.';
    if ( -e $homedir . '/.testrailrc'
        && ( !$opts{apiurl} || !$opts{password} || !$opts{user} ) )
    {
        ( $opts{apiurl}, $opts{password}, $opts{user} ) =
          TestRail::Utils::parseConfig( $homedir, 1 );
    }

    #If argument is passed use it instead of stdin
    my $file = $params{'args'}->[0];
    die "No Such File $file" if ( $file && !-e $file );

    die
      "ERROR: Interactive mode not allowed when piping input.  See --help for options."
      if ( !$opts{run}
        || !$opts{apiurl}
        || !$opts{password}
        || !$opts{user}
        || !$opts{project} );

    print "testrail-report\n----------------------\n";

    my @files = TestRail::Utils::TAP2TestFiles($file);

    TestRail::Utils::interrogateUser( \%opts,
        qw{apiurl user password project run} );

    $opts{result_options} = { 'version' => $opts{version} } if $opts{version};

    $opts{'debug'} = 1 if $opts{'browser'};

    my $tap;
    foreach my $phil (@files) {
        $tap = Test::Rail::Parser->new(
            {
                'tap'            => $phil,
                'apiurl'         => $opts{apiurl},
                'user'           => $opts{user},
                'pass'           => $opts{password},
                'run'            => $opts{run},
                'project'        => $opts{project},
                'step_results'   => $opts{step_results},
                'debug'          => $opts{debug},
                'browser'        => $opts{browser},
                'plan'           => $opts{plan},
                'configs'        => $opts{configs},
                'result_options' => $opts{result_options},
                'testsuite_id'   => $opts{testsuite_id},
                'testsuite'      => $opts{testsuite},
                'sections'       => $opts{sections},
                'autoclose'      => $opts{autoclose},
                'encoding'       => $opts{encoding},
                'max_tries'      => $opts{max_tries},
                'merge'          => 1
            }
        );
        $tap->run();
    }

    #all done
    return ( "Done.\n", 0 );
}

1;

__END__