如何使用 Test::MockObject 模拟 IO::Socket::INET

Question

我正在为使用 IO::Socket::INET 的 Perl 模块编写一些单元测试，因此我想使用 Test::MockObject 模拟 IO::Socket::INET 模块。

到目前为止，我有类似的东西

$INC{'IO/Socket/INET.pm'} = 1;
my $inet = Test::MockObject->new();
$inet->fake_module('IO::Socket::INET', new => sub { $inet });

，但我正在测试的模块中的代码有类似的代码

my $server = IO::Socket::INET->new(...);
my $data = <$server>

，当我运行测试时，当它尝试执行角度运算符时，我会收到类似“不是 GLOB 引用”的错误。

我需要添加什么才能使我的模拟对象引用看起来像文件句柄以便此代码运行？

Answer 1

您可以使用重载来创建您自己的模拟INET类，该类将提供自己的实现><> 运算符。像下面这样：

package My::MockINET;

use strict;
use warnings;

use overload '<>' => \&_readline;

sub new { 
    return bless { }, shift;
}

sub _readline { 
    return "some data here\n";
}

1;

然后你可以像这样使用它：

$INC{'IO/Socket/INET.pm'} = 1;
my $inet = My::MockINET->new();

my $data = <$inet>;