#!/usr/bin/perl

use strict;

use warnings;

BEGIN { $| = 1; }

use Archive::Zip qw( :ERROR_CODES );

use Test::More;

foreach my $pass (qw( wrong test )) {

    my $zip = Archive::Zip->new();

    isa_ok($zip, "Archive::Zip");

    is($zip->read("t/data/crypt.zip"), AZ_OK, "Read file");

    ok(my @mn = $zip->memberNames, "get memberNames");

    is_deeply(\@mn, ["decrypt.txt"], "memberNames");

    ok(my $m = $zip->memberNamed($mn[0]), "find member");

    isa_ok($m, "Archive::Zip::Member");

    is($m->password($pass), $pass, "set password");

    is($m->password(),      $pass, "get password");

    is(

        $m->contents,

        $pass eq "test"

        ? "encryption test\n"

        : "",

        "Decoded buffer"

    );

}

done_testing;