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