55 lines
1.6 KiB
Perl
55 lines
1.6 KiB
Perl
|
#!/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";
|
||
|
|
|