[Pkg-privacy-commits] [msva-perl] 11/15: ensure a test with no keyserver line found at all

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch master
in repository msva-perl.

commit 6a028a42d6a7cd35dcd95939e673c585fa779018
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Mon Sep 9 01:55:01 2013 -0400

    ensure a test with no keyserver line found at all
---
 unit-tests/10.keyserver/10.gnupghome.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/unit-tests/10.keyserver/10.gnupghome.t b/unit-tests/10.keyserver/10.gnupghome.t
index d562a89..89ea27f 100644
--- a/unit-tests/10.keyserver/10.gnupghome.t
+++ b/unit-tests/10.keyserver/10.gnupghome.t
@@ -8,7 +8,7 @@ use strict;
 use warnings;
 
 my $fpr='762B57BB784206AD';
-plan tests =>7;
+plan tests =>9;
 
 {
 
@@ -49,3 +49,13 @@ $ks=new Crypt::Monkeysphere::Keyserver(gnupg=>$gnupg,
 isa_ok($ks,'Crypt::Monkeysphere::Keyserver');
 
 is($ks->{keyserver},"$testks.example");
+
+open GPGCONF, '>', "$tempdir/gpg.conf";
+close GPGCONF;
+
+$ks=new Crypt::Monkeysphere::Keyserver(gnupg=>$gnupg,
+                                       loglevel=>'debug');
+
+isa_ok($ks,'Crypt::Monkeysphere::Keyserver');
+
+is($ks->{keyserver},$Crypt::Monkeysphere::Keyserver::default_keyserver);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git