TestRail-Perl/bin/testrail-cases

#!/usr/bin/env perl
# ABSTRACT: get information about cases inside various testsuites/sections.
# PODNAME: testrail-cases

=head1 SYNOPSIS

  testrail-cases [OPTIONS]

=head1 DESCRIPTION

testrail-cases - get information about cases inside various testsuites/sections.

By default will tell you which cases are in both the testsuite and directory passed.

=head1 PARAMETERS:

=head2 MANDATORY PARAMETERS

=over 4

--apiurl     : full URL to get to TestRail index document

--password   : Your TestRail Password, or a valid API key (TestRail 4.2 and above).

--user       : Your TestRail User Name.

-j --project : desired project name.

-t --testsuite  : desired testsuite name to search for cases within.  May be passed multiple times.

-d --directory : directory to search for tests to correlate with TestRail cases.  May be passed multiple times.

=back

All mandatory options not passed with the above switches, or in your ~/.testrailrc will be prompted for.

=head2 SEMI-OPTIONAL PARAMETERS

=over 4

-m --missing : Only show cases which are in the directory passed, but not TestRail.  Mutually exclusive with orphans.

-o --orphans : Only show cases which are in TestRail, but not the directory passed.  Mutually exclusive with missing.

-n --no-recurse : do not recurse subdirectories when considering what tests need adding/updating/pruning.

-e --encoding   : Character encoding of arguments.  Defaults to UTF-8. See L<Encode::Supported> for supported encodings.

=back

=head2 OPTIONAL PARAMETERS

=over 4

--type      : Filter cases to make syncing judgements against type(s).  May be passed multiple times.

--section   : Filter cases to make syncing judgements against a specific section.

--extension : only list files ending in the provided string (e.g. .pl, .pm, .t, .test)

=back

=head1 CONFIGURATION FILE

In your \$HOME, (or the current directory, if your system has no concept of a home directory) put a file called .testrailrc with key=value syntax separated by newlines.
Valid Keys are the same as documented by L<App::Prove::Plugin::TestRail>.
All options specified thereby are overridden by passing the command-line switches above.

=head1 MISCELLANEOUS OPTIONS:

=over 4

--help : show this output

--test : print which tests would be added/updated/removed, but don't actually do anything

=back

=cut

use strict;
use warnings;
use utf8;

use TestRail::API;
use TestRail::Utils;
use TestRail::Utils::Find;

use Getopt::Long;
use File::HomeDir qw{my_home};

my $opts ={};

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

GetOptions(
    'apiurl=s'        => \$opts->{'apiurl'},
    'password=s'      => \$opts->{'password'},
    'user=s'          => \$opts->{'user'},
    'j|project=s'     => \$opts->{'project'},
    't|testsuite=s'   => \$opts->{'testsuite'},
    'd|directory=s'   => \$opts->{'directory'},
    'm|missing'       => \$opts->{'missing'},
    'o|orphans'       => \$opts->{'orphans'},
    'n|no-recurse'    => \$opts->{'no-recurse'},
    'e|encoding=s'    => \$opts->{'encoding'},
    'section=s'       => \$opts->{'section'},
    'type=s@'         => \$opts->{'types'},
    'extension=s'     => \$opts->{'extension'},
    'h|help'          => \$opts->{'help'},
    'test'            => \$opts->{'test'},
    'mock'            => \$opts->{'mock'} #actually do something, but bogusly
);

if ($opts->{help}) { TestRail::Utils::help(); }

#Mutual exclusivity
$opts->{'no-missing'} = !$opts->{'missing'};
$opts->{'update'} = !($opts->{'orphans'} || $opts->{'missing'});
die("orphans and mising options are mutually exclusive.") if $opts->{'orphans'} && $opts->{'missing'};
delete $opts->{'missing'};

TestRail::Utils::interrogateUser($opts,qw{apiurl user password project testsuite directory});

my $tr = TestRail::Utils::getHandle($opts);

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

my $tests = TestRail::Utils::Find::findCases($opts,@$cases);

my (@update,@add,@orphan);
@update = map {$_->{'title'}} @{$tests->{'update'}}  if ref $tests->{'update'}  eq 'ARRAY';
@add = map {$_->{'title'}} @{$tests->{'orphans'}} if ref $tests->{'orphans'} eq 'ARRAY';
@orphan = @{$tests->{'missing'}} if ref $tests->{'missing'} eq 'ARRAY';

print join("\n",@update);
print join("\n",@add);
print join("\n",@orphan);
print "\n";
exit 0;

__END__

L<TestRail::API>

L<File::HomeDir> for the finding of .testrailrc

=head1 SPECIAL THANKS

Thanks to cPanel Inc, for graciously funding the creation of this distribution.