4 use Crypt::Monkeysphere::Validator;
6 use File::Temp qw(tempdir);
11 my $uid='David Bremner <david@tethera.net>';
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)]
20 my $validator=new Crypt::Monkeysphere::Validator(gnupg=>$gnupg,
23 isa_ok($validator,'Crypt::Monkeysphere::Validator');
25 my $return=$validator->query(uid=>$uid);
27 print Dumper($return);
29 is(defined($return),1);