view release on metacpan or  search on metacpan

t/03-utilities.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Alien;
use Alien::proj;
use File::Which qw /which/;

UTILITY:
{
    local $TODO = 'not all system installs have utilities'
      if Alien::proj->install_type eq 'system'
        && !which 'projinfo';
    
    my ($result, $stderr, $exit) = Alien::proj->run_utility ("cs2cs");
    like ($stderr, qr{Rel. \d\.\d\.\d, .+ \d{4}},
        'Got expected result from cs2cs utility');
    diag '';
    diag ("\nUtility results:\n" . $result);
    diag ($stderr) if $stderr;
    diag "Exit code is $exit";
    diag '';
    diag 'Bin dirs: ' . (Alien::proj->bin_dirs);
}

done_testing();