Test::Mock::LWP(3) 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 minimalist, 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:

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.