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的对象，其中包含'printout'方法。但是你在$ logparser上调用printout（）。

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

因此，如果没有更多上下文，我无法分辨为printOut（）创建存根的可能性，以便解析知道它。

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

Answer 4

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

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

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

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

4 个答案: