perl - 如何模拟另一个模块中的子？

Question

我在模拟另一个模块中的子例程时遇到了麻烦，而不是在我运行测试的地方。

我在一个名为 ParserTests.pl 的文件中进行了测试。我正在尝试测试模块 LogParser.pm 中的子例程（解析）

sub parse {
    my ($self) = @_;
    my $rr = $self->getRR;
    while(1) {
        my $result = $self->parseCommitSet();
        if ($result eq 2) {
            last;
        }
        my $printStatus = $self->printOut($result);
        if (!$printStatus) {
            say "Problem occurred with writing to output";
            return 0;
        }
        $self->setRR(ReportRecord->new());
    }
    return 1;
}

我正在尝试模拟 printOut 以便它始终返回 true。我想做的是：

#! /usr/bin/perl
use v5.10.0;
use strict;
use warnings;
use Test::More 'no_plan';
use Test::MockObject;
use LogParser;
{other tests…}
my $mock = Test::MockObject->new();
$mock->set_true('LogParser::printOut');
my $test100FH = getTestFH($test100SetsNoPrev);
$logParser = LogParser->new($test100FH);
is($logParser->parse, 1, "im ok?");
close $test100FH;

但是这个测试失败了。当我测试 parse() 时，您能告诉我为什么并指出正确的路径以使其正常工作吗？我阅读了一堆文档，但是像这样的东西仍然有点不清楚。

错误是

Can't use an undefined value as a symbol reference at /Users/achu/Documents/workspace/Perl_Script/LogParser.pm line 241, <$fh> line 8371.
# Looks like your test exited with 25 just after 91.

该行（第 241 行）位于 printOut 子例程中，但这意味着它不会像我想要的那样模拟该子例程。我究竟做错了什么？

score 10 · Accepted Answer

Test::MockModule可能更适合于此；

my $module = Test::MockModule->new('LogParser');
$module->mock( printOut => sub { return 1 } );

这将导致LogParser使用您的模拟版本，直到$module超出范围。

score 5 · Accepted Answer

Test::MockObject不完全按照您的意愿行事。它有利于提供最小实现的存根。但是为了创建一个被测类的实例并有选择地覆盖它的方法，你需要Test::MockObject::Extends.

TMOE接受一个实例，然后让您更改它的某些方法的作用。在您的示例中，您可以使用它来编写测试：

use Test::MockObject::Extends;

my $test100FH = getTestFH($test100SetsNoPrev);
$logParser = Test::MockObject::Extends->new(
    LogParser->new($test100FH);
);
$logParser->set_true('printOut');

is($logParser->parse, 1, "im ok?");

close $test100FH;

score 1 · Accepted Answer

您没有提供错误消息，但您定义的是一个名为 $mock 的对象，其中包含一个“打印输出”方法。但是你在 $logparser 上调用 printout()。

MockObject 的重点是创建一个非常简单的对象，使用一些方法，以便您可以在依赖于外部对象的算法中测试其他代码片段。例如，您可以模拟数据库句柄，以便调用 $dbh->fetchStuff() 始终返回静态行，以便您可以测试使用该行的代码。

因此，如果没有更多上下文，我无法判断为 printOut() 创建存根的可能性，以便 parse 知道它。

话虽如此，我也不理解对存根方法的返回值进行测试的愿望。

score -1 · Accepted Answer

请阅读Test::MockObject的文档并尝试了解它是如何工作的。

您只做了实际需要的前半部分：您正在创建一个模拟对象。但这不会神奇地出现在您的 LogParser 中。

给你Test::MockObject的是一个行为就像你想模拟的对象一样的对象。当然，某人或某物仍然必须使用该对象。这必须是您要测试的代码。

perl - 如何模拟另一个模块中的子？

4 回答 4

Related

Reference