如何在另一个模块中模拟一个子？

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 子例程中，但这意味着它并没有像我想要的那样模拟那个子例程。我做错了什么？

Answer 1

Test::MockModule 可能更适合这个；

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

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

Answer 2

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;

Answer 3

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

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

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

话虽如此，我也不明白想要测试存根方法的返回值的愿望。

Answer 4

请阅读Test::MockObject 的文档并尝试了解其工作原理。

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

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