Test::Mock::LWP(3pm) User Contributed Perl Documentation Test::Mock::LWP(3pm)
NAME
Test::Mock::LWP - Easy mocking of LWP packages
SYNOPSIS
Make LWP packages to make testing easier.
use Test::Mock::LWP;
# Setup fake response content and code
$Mock_response->mock( content => sub { 'foo' } );
$Mock_resp->mock( code => sub { 201 } );
# Validate args passed to request constructor
is_deeply $Mock_request->new_args, @expected_args;
# Validate request headers
is_deeply [ $Mock_req->next_call ],
[ 'header', [ 'Accept', 'text/plain' ] ];
# Special User Agent Behaviour
$Mock_ua->mock( request => sub { die 'foo' } );
DESCRIPTION
This package arises from duplicating the same code to mock LWP et al in several different modules I've written. This version is very mini-
malist, but works for my needs so far. I'm very open to new suggestions and improvements.
EXPORTS
The following variables are exported by default:
$Mock_ua
The mock LWP::UserAgent object - a Test::MockObject object
$Mock_req, $Mock_request
The mock HTTP::Request object - a Test::MockObject object
$Mock_resp, $Mock_response
The mock HTTP::Response object - a Test::MockObject object
AUTHOR
Luke Closs, "<test-mock-lwp at 5thplane.com>"
BUGS
Please report any bugs or feature requests through the web interface at <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Mock-LWP>. I
will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Test::Mock::LWP
You can also look for information at:
* AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/Test-Mock-LWP>
* CPAN Ratings
<http://cpanratings.perl.org/d/Test-Mock-LWP>
* RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Mock-LWP>
* Search CPAN
<http://search.cpan.org/dist/Test-Mock-LWP>
ACKNOWLEDGEMENTS
COPYRIGHT &; LICENSE
Copyright 2006 Luke Closs, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.8.8 2007-01-25 Test::Mock::LWP(3pm)
