1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
use strict;
use warnings;
use Test::More 0.88;
BEGIN {
if (not $ENV{RELEASE_TESTING}
and ($ENV{NO_NETWORK_TESTING}
or (not $ENV{AUTHOR_TESTING} and not $ENV{AUTOMATED_TESTING} and not $ENV{EXTENDED_TESTING})))
{
plan skip_all => 'these tests use the network: unset NO_NETWORK_TESTING and set EXTENDED_TESTING, AUTHOR_TESTING or AUTOMATED_TESTING to run';
}
}
# if tests are getting to this point and then skip due to not being able to
# reach this site, we know they are not setting NO_NETWORK_TESTING as they should.
use if !$ENV{RELEASE_TESTING}, 'Test::RequiresInternet', 'httpbin.org' => 80;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Test::Deep;
use Path::Tiny;
use Test::LWP::UserAgent;
# the root problem here was that we were not passing along additional
# arguments to request() to the superclass, e.g. the option to save the
# content to a file.
my $url = 'http://httpbin.org/response-headers';
my $useragent = Test::LWP::UserAgent->new(network_fallback => 1);
my $response = $useragent->get($url);
my $expected_content = $response->decoded_content;
{
# network_fallback case
my $tmpfile = Path::Tiny->tempfile;
my $response = $useragent->get($url, ':content_file' => $tmpfile->stringify);
my $contents = $tmpfile->slurp_utf8;
is($contents, $expected_content, 'response body is saved to file (network responses)');
is($response->content, '', 'response body is removed');
cmp_deeply(
$response,
methods(
[ header => 'X-Died' ] => undef,
[ header => 'Content-Type' ], => re(qr{^application/json}),
[ header => 'Client-Date' ] => ignore,
),
'response headers look ok',
);
}
done_testing;
|
