TestRail-Perl/t/testrail-cases.t

use strict;
use warnings;

use Test::More "tests" => 6;

#check plan mode
my @args = ($^X,qw{bin/testrail-cases -j "TestProject" -t "HAMBURGER-IZE HUMANITY" -d t/ --mock --test --extension .test});
my $out = `@args`;
is($? >> 8, 0, "Exit code OK running add, update, orphans");
chomp $out;
like($out,qr/fake\.test/,"Shows existing tests by default");

@args = ($^X,qw{bin/testrail-cases -j "TestProject" -t "HAMBURGER-IZE HUMANITY" -d t/ --mock  -o --extension .test});
$out = `@args`;
chomp $out;
like($out,qr/nothere\.test/,"Shows orphan tests");

@args = ($^X,qw{bin/testrail-cases -j "TestProject" -t "HAMBURGER-IZE HUMANITY" -d t/ --mock  -m --extension .test});
$out = `@args`;
chomp $out;
like($out,qr/t\/skipall\.test/,"Shows missing tests");

#Verify no-match returns non path
@args = ($^X,qw{bin/testrail-cases --help});
$out = `@args`;
is($? >> 8, 0, "Exit code OK asking for help");
like($out,qr/encoding of arguments/i,"Help output OK");