From c70c17014268a520cc228ac35b4f4bb6b1372ee7 Mon Sep 17 00:00:00 2001 From: Paul Marquess Date: Wed, 17 May 2006 14:45:16 +0100 Subject: IO::Compress* 2.000_12 From: "Paul Marquess" Message-ID: <00c101c679af$c0305af0$2405140a@myopwv.com> p4raw-id: //depot/perl@28214 --- t/lib/compress/CompTestUtils.pm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 't') diff --git a/t/lib/compress/CompTestUtils.pm b/t/lib/compress/CompTestUtils.pm index 668d66d90c..d86aba5257 100644 --- 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"], ); } -- cgit v1.2.1