1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
# -*- perl -*-
use Test::More;
use Crypt::Monkeysphere::Keyserver;
use GnuPG::Interface;
use File::Temp qw(tempdir);
use strict;
my $keyserver= $ENV{MSTEST_KEYSERVER} || 'hkp://pool.sks-keyservers.net';
my $uid='David Bremner <david@tethera.net>';
plan tests =>2;
my $tempdir = tempdir("unitXXXXX", CLEANUP=> 1);
my $gnupg = new GnuPG::Interface();
$gnupg->options->hash_init(homedir=>$tempdir);
my $ks=new Crypt::Monkeysphere::Keyserver(gnupg=>$gnupg,
keyserver=>$keyserver,
loglevel=>'debug');
isa_ok($ks,'Crypt::Monkeysphere::Keyserver');
$ks->fetch_uid($uid);
my $count=0;
grep { $count += ($_ eq '784206AD') }
(map { $_->short_hex_id } ($gnupg->get_public_keys('='.$uid)));
is($count,1);
|
