######################################################################
# Test suite for Archive::Tar::Wrapper
# by Mike Schilli <cpan@perlmeister.com>
######################################################################
use warnings;
use strict;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($ERROR);
use File::Temp qw(tempfile tempdir);
my $TARDIR = "data";
$TARDIR = "t/$TARDIR" unless -d $TARDIR;
use Test::More tests => 4;
BEGIN { use_ok('Archive::Tar::Wrapper') };
my $arch = Archive::Tar::Wrapper->new();
my $tempdir = tempdir( CLEANUP => 1 );
my($fh, $tarfile) = tempfile(UNLINK => 1);
my $foodir = "$tempdir/foo";
my $foofile = "$foodir/foofile";
mkdir "$foodir";
chmod 0710, $foodir;
open FILE, ">$foofile" or die "Cannot open $foofile ($!)";
print FILE "blech\n";
close FILE;
ok($arch->add("foo/foofile", $foofile), "adding file");
# Make a tarball
ok($arch->write($tarfile), "Tarring up");
my $tarread = Archive::Tar::Wrapper->new();
$tarread->read( $tarfile );
my $loc = $tarread->locate( "foo" );
my $mode = (stat $loc)[2] & 07777;
is $mode, 0710, "check dir mode";