Blame t/data/mkzip.pl

Packit 0bf95d
#!/usr/bin/perl
Packit 0bf95d
Packit 0bf95d
#This script will create test zip files used by some of the tests.
Packit 0bf95d
#
Packit 0bf95d
#    File                Length  Streamed    Method
Packit 0bf95d
#    ===============================================
Packit 0bf95d
#    emptydef.zip        Yes     No          Deflate
Packit 0bf95d
#    emptydefstr.zip     Yes     Yes         Deflate
Packit 0bf95d
#    emptystore.zip      Yes     No          Store
Packit 0bf95d
#    emptystorestr.zip   Yes     Yes         Store
Packit 0bf95d
#
Packit 0bf95d
Packit 0bf95d
Packit 0bf95d
use warnings;
Packit 0bf95d
use strict;
Packit 0bf95d
Packit 0bf95d
use IO::Compress::Zip qw(:all);
Packit 0bf95d
Packit 0bf95d
my $time = 325532800;
Packit 0bf95d
Packit 0bf95d
zip \"" => "emptydef.zip", 
Packit 0bf95d
        Name => "fred", Stream => 0, Method => ZIP_CM_DEFLATE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
zip \"" => "emptydefstr.zip", 
Packit 0bf95d
        Name => "fred", Stream => 1, Method => ZIP_CM_DEFLATE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
zip \"" => "emptystore.zip", 
Packit 0bf95d
        Name => "fred", Stream => 0, Method => ZIP_CM_STORE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
zip \"" => "emptystorestr.zip", 
Packit 0bf95d
        Name => "fred", Stream => 1, Method => ZIP_CM_STORE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
Packit 0bf95d
Packit 0bf95d
zip \"abc" => "def.zip", 
Packit 0bf95d
        Name => "fred", Stream => 0, Method => ZIP_CM_DEFLATE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
zip \"abc" => "defstr.zip", 
Packit 0bf95d
        Name => "fred", Stream => 1, Method => ZIP_CM_DEFLATE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
zip \"abc" => "store.zip", 
Packit 0bf95d
        Name => "fred", Stream => 0, Method => ZIP_CM_STORE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d
Packit 0bf95d
zip \"abc" => "storestr.zip", 
Packit 0bf95d
        Name => "fred", Stream => 1, Method => ZIP_CM_STORE, Time => $time
Packit 0bf95d
    or die "Cannot create zip: $ZipError";
Packit 0bf95d