use strict;
use warnings;
use Archive::Zip;
use Archive::Zip::Crypt;
use Test::More tests => 3;
my %results;
my $zip = Archive::Zip->new('t/archive.zip');
isnt($zip, undef, "new() succeeded");
foreach my $member_name ($zip->memberNames) {
my $member = $zip->memberNamed($member_name);
next if $member->isDirectory;
$member->password($member_name); # password is member name in test archive
my $contents = $zip->contents($member) or die "error accessing $member_name";
$results{$member_name} = $contents;
}
is($results{test1}, "foo\n", "First member unzipped");
is($results{test2}, "bar\n", "Second member unzipped");