Greetings,

I recently got my hands dirty with Test::MockModule, and was successfully able to use it. I was just wondering if I'm heading in the right direction though, and would appreciate any comments and suggestions.

I have an object, say $obj, and I want to test its login and get_info methods. $obj uses LWP::UserAgent and both the mentioned methods make an HTTP request and expect some reponse.

For the sake of simplicity, assume these methods just return the HTTP response code. In the practice of good testing, I'm not relying on an active internet connection, and thus I decided to fake the LWP::UserAgent's request method in my test script.

This is how the test script looks like:

use Test::More tests => 2;
use Test::MockModule;

my $obj = MyModule->new();

# Test the login method
{
    my $lwp = Test::MockModule->new( 'LWP::UserAgent' );
    $lwp->mock( request => sub {
        # Return a hand crafted HTTP::Response object
        my $response = HTTP::Response->new;
        $response->code(200);
        $response->content('Login Successfull');
        return $response;
    });

    my $code = $obj->login();
    ok($code == 200, 'login');
}

# Test the get_info method
{
    my $lwp = Test::MockModule->new( 'LWP::UserAgent' );
    $lwp->mock( request => sub {
        # Return a hand crafted HTTP::Response object
        my $response = HTTP::Response->new;
        $response->code(302);
        $response->content('Some Info');
        return $response;
    });

    my $code = $obj->get_info();
    ok($code == 302, 'get_info');
}
[download]

Essentially, every method of $obj involves a HTTP request, and in my test script I am mocking LWP::UserAgent's request method and returning some pre-determined data through a hand crafted HTTP::Response object.

What I need advice on is:

• Is this the right way? (for this particular example)
• Currently, I'm mocking the request method for each of $obj's methods. Is there some better way to do this? In the event that $obj has ten methods, I'm sure I would not like to create a new Test::MockModule object each time and then mock some method.
• Can Test::MockObject simplify this for me?
• Should I be looking into Test::Builder?

Thanks for reading.