diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-31 18:59:09 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-07-31 18:59:09 +0000 |
commit | 42c8b23669eac442a303190dad44d78cea63cf59 (patch) | |
tree | 1cc49a1a1813bd802988e88058f353a4e0a23514 /t/22_deflated_dir.t | |
download | Archive-Zip-tarball-42c8b23669eac442a303190dad44d78cea63cf59.tar.gz |
Archive-Zip-1.49HEADArchive-Zip-1.49master
Diffstat (limited to 't/22_deflated_dir.t')
-rw-r--r-- | t/22_deflated_dir.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/22_deflated_dir.t b/t/22_deflated_dir.t new file mode 100644 index 0000000..dae2180 --- /dev/null +++ b/t/22_deflated_dir.t @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use Archive::Zip qw( :ERROR_CODES ); +use File::Spec; +use t::common; + +use Test::More tests => 4; + +my $zip = Archive::Zip->new(); +isa_ok( $zip, 'Archive::Zip' ); +is( $zip->read(File::Spec->catfile('t', 'data', 'jar.zip')), AZ_OK, 'Read file' ); + +my $ret = eval { $zip->writeToFileNamed(OUTPUTZIP) }; + +is($ret, AZ_OK, 'Wrote file'); + +my ($status, $zipout) = testZip(); +# STDERR->print("status= $status, out=$zipout\n"); +SKIP: { + skip( "test zip doesn't work", 1 ) if $testZipDoesntWork; + is( $status, 0, "output zip isn't corrupted" ); +} |