4 use Crypt::Monkeysphere::Validator;
6 use File::Temp qw(tempdir);
11 my $uid='David Bremner <david@tethera.net>';
14 my $keyserver= $ENV{MSTEST_KEYSERVER} || 'hkp://pool.sks-keyservers.net';
15 my $tempdir = tempdir("unitXXXXX", CLEANUP=> 1);
16 my $gnupg = new GnuPG::Interface();
17 $gnupg->options->hash_init(homedir=>$tempdir,
18 extra_args =>[ qw(--trusted-key 762B57BB784206AD)]
21 my $validator=new Crypt::Monkeysphere::Validator(gnupg=>$gnupg,
22 keyserver=>$keyserver,
25 isa_ok($validator,'Crypt::Monkeysphere::Validator');
27 my $return=$validator->lookup(uid=>$uid,fpr=>'F8841978E8FA6FC65D3405155A5EA5837BD0B401');
29 print Dumper($return) if ($ENV{MSTEST_DEBUG});
31 ok(defined($return->{valid_key}));