Description: Skip more tests which need network access.
 These tests at least try to do a DNS lookup.
Origin: vendor
Bug-Debian: https://bugs.debian.org/830356
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2016-07-15
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=116184
Bug: https://rt.cpan.org/Ticket/Display.html?id=116184

--- a/t/listidentifiers.t
+++ b/t/listidentifiers.t
@@ -17,6 +17,11 @@
 
 ok(1);
 
+my $dotest = defined($ENV{"HTTP_OAI_NETTESTS"});
+
+SKIP : {
+	skip "Skipping net tests (set HTTP_OAI_NETTESTS env. variable to enable)", 2 unless $dotest;
+
 my $ha = HTTP::OAI::Harvester->new(baseURL=>'http://domain.invalid/');
 $r = $ha->ListRecords(metadataPrefix=>'oai_dc', from=>'2005-01-01');
 my $uri = URI->new($r->request->uri);
@@ -24,3 +29,5 @@
 ok($args{metadataPrefix} eq 'oai_dc' && $args{'from'} eq '2005-01-01','Request arguments');
 
 ok(1);
+
+}