Test::Stubを使ってみる

test_stub.t

use warnings;
use utf8;
use Test::More;
use Test::Stub;

subtest 'Test::Stub' => sub {
    my $agent = LWP::UserAgent->new();
    stub($agent)->get(
        my ($self, $path) = @_;
        if ($path =~ /google\.co\.jp\z/) {
            HTTP::Response->new(200,"OK");
        } else {
            HTTP::Response->new(500,"Internal Server Error");
        }
    );
    is($agent->get("http://www.google.co.jp")->code, 200);
    is($agent->get("http://www.yahoo.co.jp")->code, 500);
};
done_testing;