Blame t/22_deflated_dir.t
|
Packit |
0bf95d |
#!/usr/bin/perl
|
|
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 => 4;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $zip = Archive::Zip->new();
|
|
Packit |
0bf95d |
isa_ok( $zip, 'Archive::Zip' );
|
|
Packit |
0bf95d |
is( $zip->read(File::Spec->catfile('t', 'data', 'jar.zip')), AZ_OK, 'Read file' );
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $ret = eval { $zip->writeToFileNamed(OUTPUTZIP) };
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
is($ret, AZ_OK, 'Wrote file');
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my ($status, $zipout) = testZip();
|
|
Packit |
0bf95d |
# STDERR->print("status= $status, out=$zipout\n");
|
|
Packit |
0bf95d |
SKIP: {
|
|
Packit |
0bf95d |
skip( "test zip doesn't work", 1 ) if $testZipDoesntWork;
|
|
Packit |
0bf95d |
is( $status, 0, "output zip isn't corrupted" );
|
|
Packit |
0bf95d |
}
|