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

Question

我正在爲使用IO :: Socket :: INET的Perl模塊編寫一些單元測試，所以我想模擬IO： ：使用Test :: MockObject的Socket :: INET模塊。

SP到目前爲止，我有類似

$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

您可以使用overload來創建自己的模擬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>;