Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Install.t	8.87 KB	-r--r--r--	2014-12-27 11:49
InstallWithMM.t	2.3 KB	-r--r--r--	2014-12-27 11:49
Installapi2.t	8.88 KB	-r--r--r--	2014-12-27 11:49
Installed.t	10.89 KB	-r--r--r--	2014-12-27 11:49
Packlist.t	4.91 KB	-r--r--r--	2014-12-27 11:49
can_write_dir.t	1.53 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/usr/bin/perl -w

# Test the private _can_write_dir() function.

use strict;
use ExtUtils::Install;
use File::Spec;
{ package FS;  our @ISA = qw(File::Spec); }

# Alias it for easier access
*can_write_dir = \&ExtUtils::Install::_can_write_dir;

use Test::More 'no_plan';

my $dne = FS->catdir(qw(does not exist));
ok ! -e $dne;
is_deeply [can_write_dir($dne)],
          [1,
           FS->curdir,
           FS->catdir('does'),
           FS->catdir('does', 'not'),
           FS->catdir('does', 'not', 'exist')
          ];

my $abs_dne = FS->rel2abs($dne);
ok ! -e $abs_dne;
is_deeply [can_write_dir($abs_dne)],
          [1,
           FS->rel2abs(FS->curdir),
           FS->rel2abs(FS->catdir('does')),
           FS->rel2abs(FS->catdir('does', 'not')),
           FS->rel2abs(FS->catdir('does', 'not', 'exist')),
          ];

SKIP: {
    my $exists = FS->catdir(qw(exists));
    my $subdir = FS->catdir(qw(exists subdir));
    
    
    ok mkdir $exists;
    END { rmdir $exists }
    
    ok chmod 0555, $exists, 'make read only';

skip "Current user or OS cannot create directories that they cannot read", 6
          if -w $exists; # these tests require a directory we cant read

is_deeply [can_write_dir($exists)], [0, $exists];
    is_deeply [can_write_dir($subdir)], [0, $exists, $subdir];
    
    ok chmod 0777, $exists, 'make writable';
    ok -w $exists;
    is_deeply [can_write_dir($exists)], [1, $exists];
    is_deeply [can_write_dir($subdir)],
              [1,
               $exists,
               $subdir
              ];
}