代码之家 › 专栏 › 技术社区 › Robert

测试::MockModule声明“方法不存在”

mocking perl

Robert · 技术社区 · 8 年前

我尝试在中模拟函数 Net::Twitter :

use strict;
use warnings;
use Test::MockModule;

my $mock = Test::MockModule->new('Net::Twitter');
$mock->redefine('update', sub {
    # ...
});

但当我运行这个时,我得到:

Net::Twitter::更新不存在!在wtf。pl第8行。

这是为什么?我怎么能真正嘲笑 Net::Twitter::update 作用

1 回复 | 直到 8 年前

simbabque 8 年前

错误消息表示无法找到 Net::Twitter::update 覆盖。这很清楚。问题是, 为什么? .

如果你看看 Net::Twitter 对象具有 Data::Printer ,你会发现 update 方法明显。事实上,它甚至不是那种类型的对象 Net::Twitter .

use Net::Twitter;
use Data::Printer;

my $t = Net::Twitter->new;
p $t;

在安装了当前最新Net::Twitter的我的机器上,它是 Net::Twitter_v4_01042_with__Legacy ,这可能是一个动态创建的包。

Net::Twitter_v4_01042_with__Legacy  {
    Parents       Net::Twitter::Core
    public methods (22) : apihost, apirealm, apiurl, arrayref_on_error, BUILD, DESTROY, has_error, http_code, http_message, is_list_member, is_list_subscriber, is_subscribed_list, meta, new, searchapiurl, trends, tvhost, tvrealm, tvurl, twittervision, update_twittervision, upload_url
    private methods (5) : _clear_error, _error_return_val, _http_response, _parse_result, _twitter_error
    internals: {
        apirealm               "Twitter API",
        apiurl                 "https://api.twitter.com/1",
        arrayref_on_error      0,
        clientname             "Perl Net::Twitter",
        clienturl              "http://search.cpan.org/dist/Net-Twitter/",
        clientver              4.01042,
        decode_html_entities   0,
        _error_return_val      undef,
        _json_handler          Cpanel::JSON::XS,
        <<MOP>>                Class::MOP::Class::Immutable::Moose::Meta::Class,
        netrc_machine          "api.twitter.com",
        searchapiurl           "https://search.twitter.com",
        source                 "twitterpm",
        ssl                    1,
        tvhost                 "twittervision.com:80",
        tvrealm                "Web Password",
        tvurl                  "http://twittervision.com",
        twittervision          0,
        upload_url             "https://upload.twitter.com/1",
        useragent              "Net::Twitter/4.01042 (Perl)",
        useragent_args         {},
        useragent_class        "LWP::UserAgent"
    }
}

如果你尝试 looking for a sub update in the entire Net::Twitter distribution ,您将什么也找不到。它不是角色的一部分,只是不存在。

但这并不意味着它不存在。我挖得更深一点,发现 an update in Net::Twitter::Role::API::REST . 它是使用 twitter_api_method function from Net::Twitter::API . 它做了很多事情,然后使用Moose的元层将该方法安装到某个类中 Net::Twitter\u v4\u 01042\u with\uu Legacy 甚至还带来了自己的元方法类 Net::Twitter::Meta::Method .

所以很明显为什么 Test::MockModule 找不到 网络::推特::更新 . 它永远不会

但我们如何模拟它进行测试呢?

我相信最简单的方法,虽然肯定不是很好的方法,是覆盖 使现代化 在其所在的包中。为此,需要创建一个对象并进行检查。

use strict;
use warnings;
use Test::MockModule;
use Net::Twitter;

my $mock = Test::MockModule->new( ref( Net::Twitter->new ) );
$mock->redefine(
    'update',
    sub {
         ... # will die with 'unimplemented'
    }
);

my $nt = Net::Twitter->new->update;

这段代码有点浪费,因为它需要创建一个对象来检查它最终是在哪个包中,但它可以工作。

未在/主页/simbabque/代码/草稿/草稿中实现。pl第236行。