t/13_bug_46303.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;

BEGIN {
    $|  = 1;
    $^W = 1;
}
use Archive::Zip qw( :ERROR_CODES );
use Test::More tests => 4;

my $zip = Archive::Zip->new();
isa_ok($zip, 'Archive::Zip');
is($zip->read('t/data/perl.zip'), AZ_OK, 'Read file');

is($zip->extractTree(undef, 'extracted/xTree'), AZ_OK, 'Extracted archive');
ok(-d 'extracted/xTree/foo', 'Checked directory');