unit-tests/10.keyserver/20.fetch_fpr.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 my $keyserver= $ENV{MSTEST_KEYSERVER} || 'hkp://pool.sks-keyservers.net';
   9
  10 my $fpr='762B57BB784206AD';
  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                                           keyserver=>$keyserver,
  19                                           loglevel=>'debug');
  20
  21 isa_ok($ks,'Crypt::Monkeysphere::Keyserver');
  22
  23 $ks->fetch_fpr($fpr);
  24
  25 is(scalar($gnupg->get_public_keys('0x'.$fpr)),1);
  26
  27
  28
  29