|
Packit |
0bf95d |
#!/usr/bin/perl
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
use strict;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
BEGIN {
|
|
Packit |
0bf95d |
$| = 1;
|
|
Packit |
0bf95d |
$^W = 1;
|
|
Packit |
0bf95d |
}
|
|
Packit |
0bf95d |
use Archive::Zip qw( :ERROR_CODES );
|
|
Packit |
0bf95d |
use Test::More tests => 4;
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
my $zip = Archive::Zip->new();
|
|
Packit |
0bf95d |
isa_ok($zip, 'Archive::Zip');
|
|
Packit |
0bf95d |
is($zip->read('t/data/perl.zip'), AZ_OK, 'Read file');
|
|
Packit |
0bf95d |
|
|
Packit |
0bf95d |
is($zip->extractTree(undef, 'extracted/xTree'), AZ_OK, 'Extracted archive');
|
|
Packit |
0bf95d |
ok(-d 'extracted/xTree/foo', 'Checked directory');
|