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

如何模拟Perl的unlink函数?

mocking perl unit-testing

Robert · 技术社区 · 1 年前

我想模仿Perl unlink 以测试我的代码是否删除了正确的文件。基于 this question and its answers 和 this other question and its answers ,我尝试过:

use strict;
use warnings;
use subs 'unlink';
  
sub mock_unlink {
    use Data::Printer; p @_;
    return;
}     

BEGIN {
    no warnings qw/redefine/;
    *CORE::GLOBAL::unlink = \mock_unlink;
    # *unlink = \mock_unlink;
    use warnings;
}
          
unlink "some file";

但当我运行这个时,我的模拟函数确实被调用了,但参数列表是空的。我也得到了警告 取消链接 未定义。

$ perl mcve.pl
[]
Undefined subroutine &main::unlink called at mcve.pl line 17.

我希望它能打印出来

["some file"]

我试过留言 *unlink = \mock_unlink; 相反,但这并没有改变任何事情。

我需要如何嘲笑 取消链接 检查我的代码试图删除哪些文件?

1 回复 | 直到 1 年前

zdim 1 年前

use strict;
use warnings;
use feature 'say';

#use subs 'unlink';
use subs 'mock_unlink';  # but do you really need it?

sub mock_unlink {
    say "Unlink: @_";
    return;
}

BEGIN {
    no warnings qw/redefine/;
    *CORE::GLOBAL::unlink = \&mock_unlink;
    #use warnings;  # no need, `no warnings` is scoped to this block
}

unlink "some file";

笔记

需要 \&subname 为了 get a reference 指定的子(不是 \subname )
这个 use subs pragma预先声明命名的subs,以便可以使用它们 甚至在定义之前都没有括号。 你真的需要吗?

为什么它不起作用 use subs unlink; ? ... 不知道。显然,预先声明要替换的子会打乱流程。我发现后会更新
这个 use warnings / no warnings 是词法的——一旦退出作用域,效果就会过期。因此,您不需要显式地重新启用警告(但这也不是错误)。
这个 return; 在子回报中 undef 。这通常表示某种故障 unlink 如果删除失败,则返回。因此,在这里,它表明确实没有任何内容被删除,这似乎是合理的。忽略它将返回最后一个有返回的语句的返回值,在本例中为 say 如果成功,就会回报成功。这对我来说也很合理是测试。

推荐文章

Leonardo · 使用`unique_ptr`和`std::move`对象进行Google模拟,导致内存泄漏问题

8 月前

wavesinaroom · 断言结构向量长度

9 月前

Jace Johnson · Typescript文件读取的变量类型错误

9 月前

and · Python模拟-请求。Session()获取请求断言错误,未接听调用

9 月前

Indresh Mahor · 当从控制器调用测试控制器和功能接口时,无法模拟功能接口

9 月前

Tim Kirkwood · 比较空数据帧

10 月前

Kamran Khan · 使用单元测试ASP。NET核心

1 年前

paymer · 为什么我的代码没有删除我的单元测试生成的zip文件?

1 年前

Ricky Mo · 角度测试如何模拟导入的const

1 年前

Natty · Visual Studio中缺少“代码覆盖率结果”

1 年前