Attachment 576807 Details for Bug 810469 – Reproducer

Reproducer

reproducer-file (text/plain), 1012 bytes, created by Petr Pisar on 2012-04-11 15:14:39 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2012-04-11 15:14:39 UTC

Size: 1012 bytes

patch

obsolete

>#!/usr/bin/perl
>use strict;
>use warnings;
>
>use IO::Compress::Zip qw($ZipError);
>use IO::Uncompress::Unzip qw($UnzipError);
>use Data::Dumper;
>
>my $input_length = 2**32;
>my $input_file = 'bigfile';
>my $zip = $input_file . '.zip';
>
>unlink $input_file;
>unlink $zip;
>system('dd', 'if=/dev/zero', "of=$input_file", 'bs=1', 'count=1',
>    'seek=' . ($input_length - 1)) == 0
>    or die "Could not create big file: $?";
>system('zip', $zip, $input_file) == 0
>    or die "Could not create ZIP file: $?";
>
>my $decompressor = IO::Uncompress::Unzip->new($zip)
>    or die "Consctucting decompressor failed: $UnzipError\n";
>my $output_length = ${$decompressor->getHeaderInfo}{'UncompressedLength'};
>
>print "Expected length: " . $input_length . "\n";
>print STDERR Dumper($output_length) . "\n";
>if (ref $output_length) {
>    $output_length = $output_length->getHigh * 2**32 + $output_length->getLow;
>}
>print "Reported length: " . $output_length . "\n";
>
>if ($input_length == $output_length) {
>    exit 0;
>} else {
>    exit 1;
>}

Actions: View

Attachments on bug 810469: 576807