1 files changed, 54 insertions, 0 deletions
diff --git a/t/data/mkzip.pl b/t/data/mkzip.pl
new file mode 100755
index 0000000..b445846
--- /dev/null
+++ b/t/data/mkzip.pl
@@ -0,0 +1,54 @@
+#!/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";
+