unit-tests/10.keyserver/20.fetch_uid.t

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