1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
use strict;
use warnings;
use Test::More tests => 6;
use File::Spec;
use File::Basename qw(basename);
use File::Path qw(mkpath);
use FindBin;
use lib $FindBin::Bin;
use App::perlbrew;
require 'test_helpers.pl';
note "PERLBREW_ROOT set to $ENV{PERLBREW_ROOT}";
my $pb = new_ok('App::perlbrew');
my $test_dir = File::Spec->catdir($pb->root, qw/build test/);
my $test_file = File::Spec->catfile( $test_dir, 3 );
mkpath( $test_dir );
open my $out, '>', $test_file
or die "Couldn't create $test_file: $!";
ok -e $test_file, 'Test file 3 created';
my $extracted_dir = $pb->do_extract_tarball( File::Spec->catfile($FindBin::Bin, 'test.tar.gz') );
is basename( $extracted_dir ) => 'test', 'Test tarball extracted as expected';
ok !-e $test_file, 'Test file 3 was unlinked by tar';
ok -e File::Spec->catfile( $test_dir, $_ ), "Test file $_ exists" for 1..2;
|
