default_headers.t

#!perl
use strict;
use warnings;
use Test::More tests => 4;
use Test::Mock::LWP::Dispatch;

my $ua = LWP::UserAgent->new;
$ua->agent('custom useragent');
$ua->default_headers->authorization_basic( 'antipasta', 'password' );
$ua->default_header(foo => 'bar');
$ua->map(
    'http://localhost',
    sub {
        my $req = shift;
        is $req->header('user-agent'), 'custom useragent',
          'Got correct useragent header';
        ok $req->header('Authorization'), 'Got authorization header';
        is scalar( $req->headers->authorization_basic ), 'antipasta:password',
          'Contents of authorization_basic are correct';
        is $req->header('foo'),'bar', 'Got custom header foo';

        return HTTP::Response->new( 200, 'OK');
    }
);
$ua->get('http://localhost');
done_testing;