IO::Compress* 2.000_12

[p5sagit/p5-mst-13.2.git] / t / lib / compress / CompTestUtils.pm

diff --git a/t/lib/compress/CompTestUtils.pm b/t/lib/compress/CompTestUtils.pm
index 668d66d..d86aba5 100644 (file)
--- a/t/lib/compress/CompTestUtils.pm
+++ b/t/lib/compress/CompTestUtils.pm
@@ -501,16 +501,19 @@ sub mkComplete
 
     if ($class eq 'IO::Compress::Gzip') {
         %params = (
-            -Name       => "My name",
-            -Comment    => "a comment",
-            -ExtraField => ['ab' => "extra"],
-            -HeaderCRC  => 1);
+            Name       => "My name",
+            Comment    => "a comment",
+            ExtraField => ['ab' => "extra"],
+            HeaderCRC  => 1);
     }
     elsif ($class eq 'IO::Compress::Zip'){
         %params = (
-            # TODO -- add more here
-            -Name       => "My name",
-            -Comment    => "a comment",
+            Name              => "My name",
+            Comment           => "a comment",
+            ZipComment        => "last comment",
+            exTime            => [100, 200, 300],
+            ExtraFieldLocal   => ["ab" => "extra1"],
+            ExtraFieldCentral => ["cd" => "extra2"],
         );
     }