unit-tests/validator/query.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 $tempdir = tempdir("unitXXXXX", CLEANUP=> 1);
  15 my $gnupg = new GnuPG::Interface();
  16 $gnupg->options->hash_init(homedir=>$tempdir,
  17                            extra_args =>[ qw(--trusted-key 762B57BB784206AD)]
  18                           );
  19
  20 my $validator=new Crypt::Monkeysphere::Validator(gnupg=>$gnupg,
  21                                           loglevel=>'debug');
  22
  23 isa_ok($validator,'Crypt::Monkeysphere::Validator');
  24
  25 my $return=$validator->query(uid=>$uid);
  26
  27 print Dumper($return);
  28
  29 is(defined($return),1);
  30
  31
  32