use strict;
use warnings;
use Test::Requires 'HTTP::Message::PSGI';
use Test::More;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use HTTP::Response ();
use Test::LWP::UserAgent ();
{
my $ua = Test::LWP::UserAgent->new->register_psgi( abc => sub {} );
isa_ok $ua, 'Test::LWP::UserAgent', 'register_psgi returns self';
}
{
my $ua = Test::LWP::UserAgent->new->map_response(
abc => HTTP::Response->new(200),
);
isa_ok $ua, 'Test::LWP::UserAgent', 'map_response returns self';
}
{
my $ua = Test::LWP::UserAgent->new->register_psgi( abc => sub {} )
->unregister_psgi('abc');
isa_ok $ua, 'Test::LWP::UserAgent', 'unregister_psgi returns self';
}
{
my $ua = Test::LWP::UserAgent->new->map_network_response( abc => sub {} );
isa_ok $ua, 'Test::LWP::UserAgent', 'map_network_response returns self';
$ua = $ua->unmap_all;
isa_ok $ua, 'Test::LWP::UserAgent', 'unmap_all returns self';
}
done_testing();