[libhttp-tiny-perl] 03/04: Refresh tests-internet.patch patch

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libhttp-tiny-perl.

commit e1b5133692b25fe33810b860a764b30d8e4577d3
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Wed Jul 23 20:48:35 2014 +0200

    Refresh tests-internet.patch patch
---
 debian/patches/tests-internet.patch | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/debian/patches/tests-internet.patch b/debian/patches/tests-internet.patch
index f8254b5..f8c171b 100644
--- a/debian/patches/tests-internet.patch
+++ b/debian/patches/tests-internet.patch
@@ -6,13 +6,14 @@ Last-Update: 2014-07-19
 
 --- a/t/002_croakage.t
 +++ b/t/002_croakage.t
-@@ -35,8 +35,10 @@
+@@ -43,9 +43,11 @@ for my $c ( @cases ) {
    like ($err, qr/\Q$usage{$method}\E/, join("|",@$c) );
  }
  
 +if ( $ENV{HAVE_INTERNET} ) {
- my $res =  $http->get("http://www.example.com/", { headers => { host => "www.example2.com" } } );
- like( $res->{content}, qr/'Host' header/, "Providing a Host header is fatal" );
+ 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" );
 +}
  
  done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libhttp-tiny-perl.git