run new test which needs internet access only conditionally

Origin: vendor
Forwarded: not-needed
Last-Update: 2016-08-29


Gbp-Pq: Name tests-internet.patch

1 files changed, 3 insertions, 0 deletions

diff --git a/t/002_croakage.t b/t/002_croakage.t
index 331fda8..fa6984d 100644
--- a/t/002_croakage.t
+++ b/t/002_croakage.t
@@ -45,9 +45,12 @@ for my $c ( @cases ) {
   like ($err, qr/\Q$usage{$method}\E/, join("|",@$c) );
 }
 
+my $res;
+unless ( $ENV{NO_NETWORK} ) {
 my $res = eval{ $http->get("http://www.example.com/", { headers => { host => "www.example2.com" } } ) };
 is( $res->{status}, 599, "Providing a Host header errors with 599" );
 like( $res->{content}, qr/'Host' header/, "Providing a Host header gives right error message" );
+}
 
 $res = eval { $http->head("hxxp://www.example.com/") };
 is( $res->{status}, 599, "Error on unsupported scheme" );