From: David Bremner <bremner@unb.ca>
Date: Sat, 19 Mar 2011 13:11:08 +0000 (-0300)
Subject: Check that some suitable keys are found.  Make debugging output optional
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=6168195f6823bb50e36e06244017c342fc02508f;p=monkeysphere-validation-agent.git

Check that some suitable keys are found.  Make debugging output optional
---

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);