9 use Test::More tests => 5;
11 HTTP::AnyUA->register_backend(Mock => '+MockBackend');
13 my $any_ua = HTTP::AnyUA->new(ua => 'Mock');
14 my $backend = $any_ua->backend;
16 $any_ua->apply_middleware('RequestHeaders',
23 my $url = 'http://acme.tld/';
25 $any_ua->get($url, {headers => {baz => 'qux'}});
26 my $headers = ($backend->requests)[-1][2]{headers};
27 is $headers->{whatever}, 'meh', 'custom header with GET';
28 is $headers->{foo}, 'bar', 'normalized header';
29 is $headers->{baz}, 'qux', 'request header left intact';
31 $any_ua->get($url, {headers => {baz => 'qux', foo => 'moof'}});
32 $headers = ($backend->requests)[-1][2]{headers};
33 is $headers->{foo}, 'moof', 'request header takes precedence';
35 $any_ua = HTTP::AnyUA->new(ua => 'Mock');
36 $backend = $any_ua->backend;
38 $any_ua->apply_middleware('RequestHeaders',
45 $any_ua->get($url, {headers => {foo => 'moof'}});
46 $headers = ($backend->requests)[-1][2]{headers};
47 is $headers->{foo}, 'bar', 'custom header takes precedence if override on';