Blame t/21_zip64.t

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