Blame t/12_bug_47223.t

Packit 0bf95d
#!/use/bin/perl
Packit 0bf95d
Packit 0bf95d
# Check Windows Explorer compatible directories
Packit 0bf95d
Packit 0bf95d
use strict;
Packit 0bf95d
Packit 0bf95d
BEGIN {
Packit 0bf95d
    $|  = 1;
Packit 0bf95d
    $^W = 1;
Packit 0bf95d
}
Packit 0bf95d
Packit 0bf95d
use Test::More;
Packit 0bf95d
use Archive::Zip;
Packit 0bf95d
use File::Temp;
Packit 0bf95d
use File::Spec;
Packit 0bf95d
Packit 0bf95d
if ($^O eq 'MSWin32') {
Packit 0bf95d
    plan(tests => 1);
Packit 0bf95d
} else {
Packit 0bf95d
    plan(skip_all => 'Only required on Win32.');
Packit 0bf95d
}
Packit 0bf95d
Packit 0bf95d
my $dist = Win32::GetShortPathName(
Packit 0bf95d
    File::Spec->rel2abs(File::Spec->catfile(qw(t data winzip.zip))));
Packit 0bf95d
my $tmpdirname = File::Spec->catdir(File::Spec->tmpdir, "parXXXXX");
Packit 0bf95d
my $tmpdir = File::Temp::mkdtemp($tmpdirname)
Packit 0bf95d
  or die "Could not create temporary directory from template '$tmpdirname': $!";
Packit 0bf95d
my $path = $tmpdir;
Packit 0bf95d
$path = File::Spec->catdir($tmpdir, 'test');
Packit 0bf95d
Packit 0bf95d
my $zip = Archive::Zip->new();
Packit 0bf95d
Packit 0bf95d
$zip->read($dist);
Packit 0bf95d
ok(eval { $zip->extractTree('', "$path/"); 1; });