public
Description: Easy mocking of LWP packages in Perl unit tests
Homepage: http://search.cpan.org/dist/Test-Mock-LWP/
Clone URL: git://github.com/lukec/cpan-test-mock-lwp.git
name age message
file Changes Wed Aug 08 14:22:37 -0700 2007 bump dependency on Test::MockObject to avoid so... [lukec]
file MANIFEST Thu Jan 25 11:09:52 -0800 2007 update manifest with new test git-svn-id: http... [lukec]
file META.yml Wed Aug 08 22:02:22 -0700 2007 add readme git-svn-id: http://5thplane.com/svn... [lukec]
file Makefile.PL Wed Aug 08 14:22:37 -0700 2007 bump dependency on Test::MockObject to avoid so... [lukec]
file README Thu Jan 18 22:55:40 -0800 2007 Add readme and fix typo git-svn-id: http://5th... [lukec]
directory inc/ Wed Aug 08 22:02:22 -0700 2007 add readme git-svn-id: http://5thplane.com/svn... [lukec]
directory lib/ Wed Aug 08 14:22:37 -0700 2007 bump dependency on Test::MockObject to avoid so... [lukec]
directory t/ Thu Jan 25 11:08:45 -0800 2007 import the global mocked objects git-svn-id: h... [lukec]
README
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 minimalist, but
works for my needs so far.  I'm very open to new suggestions and improvements.