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
src	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
01_use.t	191 B	-r--r--r--	2014-12-27 11:48
02_methods.t	27.15 KB	-r--r--r--	2014-12-27 11:48
03_file.t	6.66 KB	-r--r--r--	2014-12-27 11:48
04_resolved_issues.t	7.77 KB	-r--r--r--	2014-12-27 11:48
05_iter.t	1.56 KB	-r--r--r--	2014-12-27 11:48
06_error.t	1.12 KB	-r--r--r--	2014-12-27 11:48
90_symlink.t	1.54 KB	-r--r--r--	2014-12-27 11:48
99_pod.t	580 B	-r--r--r--	2014-12-27 11:48

Rename

BEGIN { chdir 't' if -d 't' }

use lib '../lib';

use strict;
use File::Spec;
use File::Path;
use Test::More;

### developer tests mostly, so enable them with an extra argument
plan skip_all => "Skipping tests on this platform" unless @ARGV;
plan 'no_plan';

my $Class   = 'Archive::Tar';
my $Dir     = File::Spec->catdir( qw[src linktest] );
my %Map     = (
    File::Spec->catfile( $Dir, "linktest_with_dir.tar" ) => [
        [ 0, qr/SECURE EXTRACT MODE/ ],
        [ 1, qr/^$/ ]
    ],
    File::Spec->catfile( $Dir, "linktest_missing_dir.tar" ) => [
        [ 0, qr/SECURE EXTRACT MODE/ ],
        [ 0, qr/File exists/ ],
    ],
);

use_ok( $Class );

{   while( my($file, $aref) = each %Map ) {

for my $mode ( 0, 1 ) {
            my $expect = $aref->[$mode]->[0];
            my $regex  = $aref->[$mode]->[1];

my $tar  = $Class->new( $file );
            ok( $tar,                   "Object created from $file" );

### damn warnings
            local $Archive::Tar::INSECURE_EXTRACT_MODE = $mode;
            local $Archive::Tar::INSECURE_EXTRACT_MODE = $mode;

ok( 1,                  "   Extracting with insecure mode: $mode" );

my $warning;
            local $SIG{__WARN__} = sub { $warning .= "@_"; warn @_; };

my $rv = eval { $tar->extract } || 0;
            ok( !$@,                "       No fatal error" );
            is( !!$rv, !!$expect,   "       RV as expected" );
            like( $warning, $regex, "       Error matches $regex" );

rmtree( 'linktest' );
        }
    }
}