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 $fpr='762B57BB784206AD';
   9 plan tests =>2;
  10
  11 my $tempdir = tempdir("unitXXXXX", CLEANUP=> 1);
  12 my $gnupg = new GnuPG::Interface();
  13 $gnupg->options->hash_init(homedir=>$tempdir);
  14
  15 my $ks=new Crypt::Monkeysphere::Keyserver(gnupg=>$gnupg,
  16                                           loglevel=>'debug');
  17
  18 isa_ok($ks,'Crypt::Monkeysphere::Keyserver');
  19
  20 $ks->fetch_fpr($fpr);
  21
  22 is(scalar($gnupg->get_public_keys('0x'.$fpr)),1);
  23
  24
  25
  26