allow passing keyserver via environment.

[monkeysphere-validation-agent.git] / unit-tests / 10.keyserver / 20.fetch_uid.t

diff --git a/unit-tests/10.keyserver/20.fetch_uid.t b/unit-tests/10.keyserver/20.fetch_uid.t
index 248cbdac735f63fd736088985fc8aab74ab0bcba..3b8ccf30025bdb1cf507b72bd898dfd6a1031574 100644 (file)
--- a/unit-tests/10.keyserver/20.fetch_uid.t
+++ b/unit-tests/10.keyserver/20.fetch_uid.t
@@ -7,6 +7,8 @@ use File::Temp qw(tempdir);
 
 use strict;
 
+my $keyserver= $ENV{MSTEST_KEYSERVER} || 'hkp://pool.sks-keyservers.net';
+
 my $uid='David Bremner <david@tethera.net>';
 plan tests =>2;
 
@@ -15,6 +17,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');