4 @INC = ("../lib", "lib/compress");
8 use lib qw(t t/compress);
17 # use Test::NoWarnings, if available
20 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
22 plan tests => 77 + $extra ;
24 use_ok('IO::Compress::Zip', qw(:all)) ;
25 use_ok('IO::Uncompress::Unzip', qw(unzip $UnzipError)) ;
28 require IO::Compress::Bzip2 ;
29 import IO::Compress::Bzip2 2.010 ;
30 require IO::Uncompress::Bunzip2 ;
31 import IO::Uncompress::Bunzip2 2.010 ;
41 my $u = new IO::Uncompress::Unzip $filename, Append => 1
42 or die "Cannot open $filename: $UnzipError";
44 isa_ok $u, "IO::Uncompress::Unzip";
49 for ($status = 1; ! $u->eof(); $status = $u->nextStream())
51 my $name = $u->getHeaderInfo()->{Name};
52 #warn "Processing member $name\n" ;
55 1 while ($status = $u->read($buff)) ;
58 last unless $status == 0;
61 die "Error processing $filename: $status $!\n"
69 title "Create a simple zip - All Deflate";
71 my $lex = new LexFile my $file1;
79 my $zip = new IO::Compress::Zip $file1,
80 Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
81 isa_ok $zip, "IO::Compress::Zip";
83 is $zip->write($content[0]), length($content[0]), "write";
84 $zip->newStream(Name=> "two", Method => ZIP_CM_DEFLATE);
85 is $zip->write($content[1]), length($content[1]), "write";
86 $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
87 is $zip->write($content[2]), length($content[2]), "write";
88 ok $zip->close(), "closed";
90 my @got = getContent($file1);
92 is $got[0], $content[0], "Got 1st entry";
93 is $got[1], $content[1], "Got 2nd entry";
94 is $got[2], $content[2], "Got 3nd entry";
99 title "Create a simple zip - All Bzip2";
101 skip "IO::Compress::Bzip2 not available", 9
102 unless defined $IO::Compress::Bzip2::VERSION;
104 my $lex = new LexFile my $file1;
112 my $zip = new IO::Compress::Zip $file1,
113 Name => "one", Method => ZIP_CM_BZIP2, Stream => 0;
114 isa_ok $zip, "IO::Compress::Zip";
116 is $zip->write($content[0]), length($content[0]), "write";
117 $zip->newStream(Name=> "two", Method => ZIP_CM_BZIP2);
118 is $zip->write($content[1]), length($content[1]), "write";
119 $zip->newStream(Name=> "three", Method => ZIP_CM_BZIP2);
120 is $zip->write($content[2]), length($content[2]), "write";
121 ok $zip->close(), "closed";
123 my @got = getContent($file1);
125 is $got[0], $content[0], "Got 1st entry";
126 is $got[1], $content[1], "Got 2nd entry";
127 is $got[2], $content[2], "Got 3nd entry";
132 title "Create a simple zip - Deflate + Bzip2";
134 skip "IO::Compress::Bzip2 not available", 9
135 unless $IO::Compress::Bzip2::VERSION;
137 my $lex = new LexFile my $file1;
145 my $zip = new IO::Compress::Zip $file1,
146 Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
147 isa_ok $zip, "IO::Compress::Zip";
149 is $zip->write($content[0]), length($content[0]), "write";
150 $zip->newStream(Name=> "two", Method => ZIP_CM_BZIP2);
151 is $zip->write($content[1]), length($content[1]), "write";
152 $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
153 is $zip->write($content[2]), length($content[2]), "write";
154 ok $zip->close(), "closed";
156 my @got = getContent($file1);
158 is $got[0], $content[0], "Got 1st entry";
159 is $got[1], $content[1], "Got 2nd entry";
160 is $got[2], $content[2], "Got 3nd entry";
164 title "Create a simple zip - All STORE";
166 my $lex = new LexFile my $file1;
174 my $zip = new IO::Compress::Zip $file1,
175 Name => "one", Method => ZIP_CM_STORE, Stream => 0;
176 isa_ok $zip, "IO::Compress::Zip";
178 is $zip->write($content[0]), length($content[0]), "write";
179 $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
180 is $zip->write($content[1]), length($content[1]), "write";
181 $zip->newStream(Name=> "three", Method => ZIP_CM_STORE);
182 is $zip->write($content[2]), length($content[2]), "write";
183 ok $zip->close(), "closed";
185 my @got = getContent($file1);
187 is $got[0], $content[0], "Got 1st entry";
188 is $got[1], $content[1], "Got 2nd entry";
189 is $got[2], $content[2], "Got 3nd entry";
193 title "Create a simple zip - Deflate + STORE";
195 my $lex = new LexFile my $file1;
203 my $zip = new IO::Compress::Zip $file1,
204 Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
205 isa_ok $zip, "IO::Compress::Zip";
207 is $zip->write($content[0]), length($content[0]), "write";
208 $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
209 is $zip->write($content[1]), length($content[1]), "write";
210 $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
211 is $zip->write($content[2]), length($content[2]), "write";
212 ok $zip->close(), "closed";
214 my @got = getContent($file1);
216 is $got[0], $content[0], "Got 1st entry";
217 is $got[1], $content[1], "Got 2nd entry";
218 is $got[2], $content[2], "Got 3nd entry";
222 title "Create a simple zip - Deflate + zero length STORE";
224 my $lex = new LexFile my $file1;
232 my $zip = new IO::Compress::Zip $file1,
233 Name => "one", Method => ZIP_CM_DEFLATE, Stream => 0;
234 isa_ok $zip, "IO::Compress::Zip";
236 is $zip->write($content[0]), length($content[0]), "write";
237 $zip->newStream(Name=> "two", Method => ZIP_CM_STORE);
238 is $zip->write($content[1]), length($content[1]), "write";
239 $zip->newStream(Name=> "three", Method => ZIP_CM_DEFLATE);
240 is $zip->write($content[2]), length($content[2]), "write";
241 ok $zip->close(), "closed";
243 my @got = getContent($file1);
245 is $got[0], $content[0], "Got 1st entry";
246 ok $got[1] eq $content[1], "Got 2nd entry";
247 is $got[2], $content[2], "Got 3nd entry";
252 for my $method (ZIP_CM_DEFLATE, ZIP_CM_STORE, ZIP_CM_BZIP2)
254 title "Read a line from zip, Method $method";
256 skip "IO::Compress::Bzip2 not available", 14
257 unless defined $IO::Compress::Bzip2::VERSION;
259 my $content = "a single line\n";
262 my $status = zip \$content => \$zip,
266 is $status, 1, " Created a zip file";
268 my $u = new IO::Uncompress::Unzip \$zip;
269 isa_ok $u, "IO::Uncompress::Unzip";
271 is $u->getline, $content, " Read first line ok";
272 ok ! $u->getline, " Second line doesn't exist";