diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2006-05-17 14:45:16 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-05-17 15:02:45 +0000 |
| commit | c70c17014268a520cc228ac35b4f4bb6b1372ee7 (patch) | |
| tree | 7c6a565909b2ce8734d8a76c39ff1ebc990ce1e5 /t | |
| parent | 8d962fa19aed5e09e2a40f248faf69d89e34ac51 (diff) | |
| download | perl-c70c17014268a520cc228ac35b4f4bb6b1372ee7.tar.gz | |
IO::Compress* 2.000_12
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <00c101c679af$c0305af0$2405140a@myopwv.com>
p4raw-id: //depot/perl@28214
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/compress/CompTestUtils.pm | 17 |
1 files changed, 10 insertions, 7 deletions
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"], ); } |