IO :: Socket :: INET을 Test :: MockObject로 조롱하는 법

Question

IO :: Socket :: INET을 사용하는 Perl 모듈에 대한 단위 테스트를 작성 중이므로 IO를 조롱하고 싶습니다. : 소켓 : :: Test :: MockObject를 사용하는 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을 사용하여 <> 연산자를 자체적으로 구현하는 자신의 mock 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>;