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 21b55beea211e90c8a047931bdbe4a5ccdcd1d46..509399b76b8ea3128f7d7c2e8d69d71a9ea13437 100644 (file)
--- 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);