view release on metacpan or  search on metacpan

t/02_binary_permissions.t  view on Meta::CPAN

my $makeinfo_path = undef;
#if ($OSNAME eq 'MSWin32') {
#    $makeinfo_path = can_run('makeinfo.exe');
#}
#else {
    $makeinfo_path = can_run('makeinfo');
#}
ok(defined $makeinfo_path, '`makeinfo` binary path is defined');
isnt($makeinfo_path, q{}, '`makeinfo` binary path is not empty');

# split makeinfo executable file from directory containing it
(my $makeinfo_volume, my $makeinfo_directories, my $makeinfo_file) = File::Spec->splitpath($makeinfo_path);
my $makeinfo_directory = File::Spec->catpath($makeinfo_volume, $makeinfo_directories, q{});

# test makeinfo directory permissions
ok(defined $makeinfo_directory, 'Alien::Texinfo->bin_dir() is defined');
isnt($makeinfo_directory, q{}, 'Alien::Texinfo->bin_dir() is not empty');
ok(-e $makeinfo_directory, 'Alien::Texinfo->bin_dir() exists');
ok(-r $makeinfo_directory, 'Alien::Texinfo->bin_dir() is readable');
ok(-d $makeinfo_directory, 'Alien::Texinfo->bin_dir() is a directory');