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 $uid='David Bremner <david@tethera.net>';
  11 plan tests =>2;
  12
  13 my $tempdir = tempdir("unitXXXXX", CLEANUP=> 1);
  14 my $gnupg = new GnuPG::Interface();
  15 $gnupg->options->hash_init(homedir=>$tempdir);
  16
  17 my $ks=new Crypt::Monkeysphere::Keyserver(gnupg=>$gnupg,
  18                                           loglevel=>'debug');
  19
  20 isa_ok($ks,'Crypt::Monkeysphere::Keyserver');
  21
  22 $ks->fetch_uid($uid);
  23
  24 my $count=0;
  25 grep { $count += ($_ eq '784206AD') }
  26   (map { $_->short_hex_id } ($gnupg->get_public_keys('='.$uid)));
  27
  28 is($count,1);
  29
  30
  31