Browse files

Fix tests failing on timeout

  • Loading branch information...
1 parent 6f16177 commit f1754be1459069df5daa960d6074eeb4a8dd4237 @arhuman committed Jun 24, 2013
Showing with 9 additions and 4 deletions.
  1. +9 −4 t/03-objects.t
View
13 t/03-objects.t
@@ -102,18 +102,23 @@ SKIP: {
for my $object (@objects) {
ok(!ref($object), "query() : String returned for 'remarks' attribute filter")
}
+}
- @objects = Net::Whois::Object->query('AS30781');
+eval { @objects = Net::Whois::Object->query('AS30781') };
+SKIP: {
+ skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ );
for my $object (@objects) {
- ok(ref($object) =~ /Net::Whois::Object/ , "query() : Object returned for 'remarks' attribute filter")
+ ok(ref($object) =~ /Net::Whois::Object/ , "query() : Object ".ref($object)." returned for 'remarks' attribute filter")
}
- @objects = Net::Whois::Object->query('AS30781', {type => 'asblock', attribute => 'admin_c'});
+}
+eval { @objects = Net::Whois::Object->query('AS30781', {type => 'asblock', attribute => 'admin_c' })} ;
+SKIP: {
+ skip "Network issue",14 if ( $@ =~ /IO::Socket::INET/ );
for my $object (@objects) {
ok($object eq 'CREW-RIPE' , "query() : 'CREW-RIPE' returned for AsBlock and admin-c filter")
}
}
-
__DATA__
% This is the RIPE Database query service.
% The objects are in RPSL format.

0 comments on commit f1754be

Please sign in to comment.