NAME
Test::Mock::LWP::Conditional - stubbing on LWP request
SYNOPSIS
use
LWP::UserAgent;
use
HTTP::Response;
use
Test::More
# global
Test::Mock::LWP::Conditional->stub_request(
$uri
=> HTTP::Response->new(503));
is LWP::UserAgent->new->get(
$uri
)->
code
=> 503;
# lexical
my
$ua
= LWP::UserAgent->new;
$ua
->stub_request(
$uri
=>
sub
{ HTTP::Response->new(500) });
is
$ua
->get(
$uri
)->
code
=> 500;
is LWP::UserAgent->new->get(
$uri
)->
code
=> 503;
# reset
Test::Mock::LWP::Conditional->reset_all;
is
$ua
->get(
$uri
)->
code
=> 200;
is LWP::UserAgent->new->get(
$uri
)->
code
=> 200;
DESCRIPTION
This module stubs out LWP::UserAgent's request.
METHODS
stub_request($uri, $res)
Sets stub response for requesed URI.
reset_all
Clear all stub requests.
AUTHOR
NAKAGAWA Masaki <masaki@cpan.org>
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
Test::Mock::LWP, Test::Mock::LWP::Dispatch, Test::MockHTTP, Test::LWP::MockSocket::http
https://github.com/bblimke/webmock, https://github.com/chrisk/fakeweb