unit-tests/20.validator/20.lookup.t

   1 # -*- perl -*-
   2 use Test::More;
   3
   4 use Crypt::Monkeysphere::Validator;
   5 use GnuPG::Interface;
   6 use File::Temp qw(tempdir);
   7 use Data::Dumper;
   8
   9 use strict;
  10
  11 my $uid='David Bremner <david@tethera.net>';
  12 plan tests =>2;
  13
  14 my $keyserver= $ENV{MSTEST_KEYSERVER} || 'hkp://pool.sks-keyservers.net';
  15 my $tempdir = tempdir("unitXXXXX", CLEANUP=> 1);
  16 my $gnupg = new GnuPG::Interface();
  17 $gnupg->options->hash_init(homedir=>$tempdir,
  18                            extra_args =>[ qw(--trusted-key 762B57BB784206AD)]
  19                           );
  20
  21 my $validator=new Crypt::Monkeysphere::Validator(gnupg=>$gnupg,
  22                                                  keyserver=>$keyserver,
  23                                                  loglevel=>'debug');
  24
  25 isa_ok($validator,'Crypt::Monkeysphere::Validator');
  26
  27 my $return=$validator->lookup(uid=>$uid,fpr=>'F8841978E8FA6FC65D3405155A5EA5837BD0B401');
  28
  29 print Dumper($return) if ($ENV{MSTEST_DEBUG});
  30
  31 ok(defined($return->{valid_key}));
  32
  33
  34