We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9b568ed commit b32efe3Copy full SHA for b32efe3
t/apache.t
@@ -8,11 +8,13 @@ use LWP::UserAgent;
8
my $ua = LWP::UserAgent->new();
9
plan skip_all => "Not online" unless $ua->is_online;
10
11
-plan tests => 4;
+plan tests => 5;
12
13
my $res = $ua->simple_request(HTTP::Request->new(GET => "https://www.apache.org"));
14
15
ok($res->is_success);
16
+my $h = $res->header( 'X-Died' );
17
+is($h, undef, "no X-Died header");
18
like($res->content, qr/Apache Software Foundation/);
19
20
# test for RT #81948
0 commit comments