#!perl
use strict;
use warnings;
use Test::More tests => 25;
use Test::Exception;
BEGIN {
use_ok( 'Crypt::GpgME' );
}
my $ctx;
lives_ok (sub {
$ctx = Crypt::GpgME->new;
}, 'create new context');
isa_ok ($ctx, 'Crypt::GpgME');
{
my $keylist_mode;
lives_ok (sub {
$keylist_mode = $ctx->get_keylist_mode;
}, 'getting keylist_mode');
is_deeply ($keylist_mode, ['local'], 'default keylist_mode is local');
}
for my $mode (qw/extern sigs sig-notations validate local/) {
lives_ok (sub {
$ctx->set_keylist_mode([$mode]);
}, "setting keylist_mode to $mode");
{
my $keylist_mode;
lives_ok (sub {
$keylist_mode = $ctx->get_keylist_mode;
}, 'getting keylist_mode');
is_deeply ($keylist_mode, [$mode], 'setting keylist_mode worked');
}
}
throws_ok(sub {
$ctx->set_keylist_mode(['opengpg']);
}, qr/^unknown keylist mode/, 'setting invalid keylist_mode');
throws_ok(sub {
$ctx->set_keylist_mode({});
}, qr/not an array reference/, 'calling with non-array-ref');
lives_ok (sub {
$ctx->set_keylist_mode;
}, 'setting keylist_mode without argument works');
{
my $keylist_mode;
lives_ok (sub {
$keylist_mode = $ctx->get_keylist_mode;
}, 'getting keylist_mode');
is_deeply ($keylist_mode, ['local'], 'calling set_keylist_mode without arguments sets to local');
}