|
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; });
|