|
Packit |
0bf95d |
#!/usr/bin/perl
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
# Test to make sure zip64 files are properly detected
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use strict;
|
|
Packit |
0bf95d |
use warnings;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use Archive::Zip qw( :ERROR_CODES );
|
|
Packit |
0bf95d |
use File::Spec;
|
|
Packit |
0bf95d |
use lib 't';
|
|
Packit |
0bf95d |
use common;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use Test::More tests => 1;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $DATA_DIR = File::Spec->catfile('t', 'data');
|
|
Packit |
0bf95d |
my $ZIP_FILE = File::Spec->catfile($DATA_DIR, "zip64.zip");
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my @errors = ();
|
|
Packit |
0bf95d |
$Archive::Zip::ErrorHandler = sub { push @errors, @_ };
|
|
Packit |
0bf95d |
eval { Archive::Zip->new($ZIP_FILE) };
|
|
Packit |
0bf95d |
ok($errors[0] =~ /zip64 not supported/, 'Got expected zip64 error');
|