diff options
Diffstat (limited to 'cpan/HTTP-Tiny/t/002_croakage.t')
| -rw-r--r-- | cpan/HTTP-Tiny/t/002_croakage.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cpan/HTTP-Tiny/t/002_croakage.t b/cpan/HTTP-Tiny/t/002_croakage.t index a243ebce5a..690f67eac7 100644 --- a/cpan/HTTP-Tiny/t/002_croakage.t +++ b/cpan/HTTP-Tiny/t/002_croakage.t @@ -35,5 +35,8 @@ for my $c ( @cases ) { like ($err, qr/\Q$usage{$method}\E/, join("|",@$c) ); } +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" ); + done_testing; |