view release on metacpan or  search on metacpan

t/001Basic.t  view on Meta::CPAN

   "Check list");

my $f1 = $a2->locate("001Basic.t");
my $f2 = $a2->locate("foo/bar/baz");
ok(-s $f1 > 0, "Checking tarball files sizes");
ok(-s $f2 > 0, "Checking tarball files sizes");

is(-s $f1, -s $f2, "Comparing tarball files sizes");

my $f3 = $a2->locate("foo/bar/permtest");
my $perm = ((stat($f3))[2] & 07777);
is($perm, 0770, "permtest");

my $f4 = $a2->locate("foo/bar/string");
open FILE, "<$f4" or die "Cannot open $f4";
my $got_data = join '', <FILE>;
close FILE;
is($got_data, $data, "comparing file data");

# Iterators
$arch->list_reset();

t/001Basic.t  view on Meta::CPAN

    # Permissions
umask(022);
my $a5 = Archive::Tar::Wrapper::IPC::Cmd->new(
    tar_read_options => "p",
);
$a5->read("$TARDIR/bar.tar");

$f1 = $a5->locate("bar/bar.dat");

$perm = ((stat($f1))[2] & 07777);
is($perm, 0664, "permtest");

SKIP: {
      # gnu options
    my $a6 = Archive::Tar::Wrapper::IPC::Cmd->new(
        tar_gnu_read_options => ["--numeric-owner"],
    );

    skip "Only with gnu tar", 1 unless $a6->is_gnu();