[Pkg-privacy-commits] [msva-perl] 315/356: Check that some suitable keys are found. Make debugging output optional

[Ximin Luo]

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

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

commit 6168195f6823bb50e36e06244017c342fc02508f
Author: David Bremner <bremner at unb.ca>
Date:   Sat Mar 19 10:11:08 2011 -0300

    Check that some suitable keys are found.  Make debugging output optional
---
 unit-tests/20.validator/20.remote.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/unit-tests/20.validator/20.remote.t b/unit-tests/20.validator/20.remote.t
index 21b55be..509399b 100644
--- a/unit-tests/20.validator/20.remote.t
+++ b/unit-tests/20.validator/20.remote.t
@@ -26,9 +26,9 @@ isa_ok($validator,'Crypt::Monkeysphere::Validator');
 
 my $return=$validator->query(uid=>$uid);
 
-print Dumper($return);
+print Dumper($return) if ($ENV{MSTEST_DEBUG});
 
-is(defined($return),1);
+ok(scalar @{$return->{valid_keys}} > 0);
 
 
 

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