|
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 |
|