TestRail-Perl/t/testrail-runs.t

use strict;
use warnings;

use Test::More 'tests' => 10;

#check status filters
my @args = ($^X,qw{bin/testrail-runs --apiurl http://testrail.local --user "test@fake.fake" --password "fake" -j "TestProject" --mock});
my $out = `@args`;
is($? >> 8, 0, "Exit code OK looking for runs with passes");
chomp $out;
like($out,qr/^TestingSuite\nOtherOtherSuite\nFinalRun$/,"Gets run correctly looking for passes");

#check status filters
@args = ($^X,qw{bin/testrail-runs --apiurl http://testrail.local --user "test@fake.fake" --password "fake" -j "TestProject" --mock --status passed});
$out = `@args`;
is($? >> 8, 0, "Exit code OK looking for runs with passes, which should fail to return results");
chomp $out;
is($out,'',"Gets no runs correctly looking for passes");

@args = ($^X,qw{bin/testrail-runs --apiurl http://testrail.local --user "test@fake.fake" --password "fake" -j "CRUSH ALL HUMANS" --mock --status passed});
$out = `@args`;
is($? >> 8, 0, "Exit code OK looking for runs with passes");
chomp $out;
like($out,qr/SEND T-1000 INFILTRATION UNITS BACK IN TIME$/,"Gets run correctly looking for passes");

#TODO check configs for real next time
@args = ($^X,qw{bin/testrail-runs --apiurl http://testrail.local --user "test@fake.fake" --password "fake" -j "TestProject" --mock --config testConfig});
$out = `@args`;
is($? >> 8, 0, "Exit code OK looking for runs with passes");
chomp $out;
is($out,'',"Gets no run correctly when filtering by unassigned config");

#help options
@args = ($^X,qw{bin/testrail-runs --help});
$out = `@args`;
is($? >> 8, 0, "Exit code OK looking for help");
like($out,qr/encoding of arguments/i,"Help output OK");