view release on metacpan or  search on metacpan

t/tester-exit.t  view on Meta::CPAN

#!perl
use strict;
use warnings;

use Test::More tests => 3;

use Capture::Tiny 'capture';
use File::Spec;

require App::Cmd::Tester; # not used, but check which!

my $helper_fn = $0;
$helper_fn =~ s{\.t$}{.helper.pl} or die "Can't make helper from $0";

for my $exit_with (0, 5) {
  my ($stdout, $stderr, $got_exit) = capture {
    system(
      $^X,
      (-d 'blib' ? '-Mblib' : ('-I', File::Spec->rel2abs('lib'))),
      $helper_fn, $exit_with);
  };

  chomp $stdout;
  is($stdout, $INC{'App/Cmd/Tester.pm'}, "App::Cmd::Tester source path")
    unless $exit_with; # just once

  is($exit_with,
     $got_exit / 256, # yes it could be fractional, and that would be fail
     "exit code as expected");
}