Merge Daniel and David's work from git://lair.fifthhorseman.net/~dkg/msva-perl.

[monkeysphere-validation-agent.git] / t / 10.keyserver / 20.fetch_fpr.t

diff --git a/t/10.keyserver/20.fetch_fpr.t b/t/10.keyserver/20.fetch_fpr.t
index cbdef5e81a6a0b62f8b7810d4c5d71c716394a66..e3fa853f954c768bf31759c7bbfdd0814f3b5955 100644 (file)
--- a/t/10.keyserver/20.fetch_fpr.t
+++ b/t/10.keyserver/20.fetch_fpr.t
@@ -5,6 +5,8 @@ use Crypt::Monkeysphere::Keyserver;
 use GnuPG::Interface;
 use File::Temp qw(tempdir);
 
+my $keyserver= $ENV{MSTEST_KEYSERVER} || 'hkp://pool.sks-keyservers.net';
+
 my $fpr='762B57BB784206AD';
 plan tests =>2;
 
@@ -13,6 +15,7 @@ my $gnupg = new GnuPG::Interface();
 $gnupg->options->hash_init(homedir=>$tempdir);
 
 my $ks=new Crypt::Monkeysphere::Keyserver(gnupg=>$gnupg,
+                                         keyserver=>$keyserver,
                                          loglevel=>'debug');
 
 isa_ok($ks,'Crypt::Monkeysphere::Keyserver');