Test :: MockModule声称“方法不存在”
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Test :: MockModule声称“方法不存在”相关的知识,希望对你有一定的参考价值。
我尝试在Net::Twitter中模拟一个函数:
use strict;
use warnings;
use Test::MockModule;
my $mock = Test::MockModule->new('Net::Twitter');
$mock->redefine('update', sub {
# ...
});
但是当我跑这个时,我得到:
Net :: Twitter :: update不存在!在wtf.pl第8行。
为什么这样,我怎么能真正模拟Net::Twitter::update
函数?
错误消息表示无法找到要覆盖的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_v4_01042_with__Legacy
- 甚至带来了自己的元方法类Net::Twitter::Meta::Method。
所以很明显为什么Test::MockModule找不到Net::Twitter::update
。它根本就没有
但是我们如何模仿它进行测试呢?
我相信最简单的方法,虽然肯定不是一个非常好的方法,但是在它存在的包中覆盖update
。为此,你需要创建一个对象并检查。
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;
这段代码有点浪费,因为它需要创建一个对象来检查它最终的包,但是它有效。
在/home/simbabque/code/scratch/scratch.pl第236行未实现。
以上是关于Test :: MockModule声称“方法不存在”的主要内容,如果未能解决你的问题,请参考以下文章