|
Packit |
ec7ac3 |
#!perl -w
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
use strict;
|
|
Packit |
ec7ac3 |
use Test::More;
|
|
Packit |
ec7ac3 |
use Test::RequiresInternet 'www.apache.org' => 443;
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
use LWP::UserAgent;
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
my $ua = LWP::UserAgent->new( ssl_opts => {verify_hostname => 0} );
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
plan tests => 5;
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
my $res = $ua->simple_request(HTTP::Request->new(GET => "https://www.apache.org"));
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
ok($res->is_success);
|
|
Packit |
ec7ac3 |
my $h = $res->header( 'X-Died' );
|
|
Packit |
ec7ac3 |
is($h, undef, "no X-Died header");
|
|
Packit |
ec7ac3 |
like($res->content, qr/Apache Software Foundation/);
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
# test for RT #81948
|
|
Packit |
ec7ac3 |
my $warn = '';
|
|
Packit |
ec7ac3 |
$SIG{__WARN__} = sub { $warn = shift };
|
|
Packit |
ec7ac3 |
$res = $ua->simple_request(HTTP::Request->new(GET => "https://www.apache.org"));
|
|
Packit |
ec7ac3 |
ok($res->is_success);
|
|
Packit |
ec7ac3 |
is($warn, '', "no warning seen");
|
|
Packit |
ec7ac3 |
|
|
Packit |
ec7ac3 |
$res->dump(prefix => "# ");
|