perl - 在 perl 中 stub 和模拟一个用于单元测试的子程序

Question

我正在尝试对模块进行单元测试。我需要帮助和信息，如何模拟或 stub 子程序来测试包。

我不想使用我在 cpan. 上遇到的模块

Answer 1

您可以通过在测试中以下列方式覆盖它们来模拟潜艇:

no warnings;
local *Foo::bar = sub {
    # do stuff
};
use warnings;

您通常希望设置一个变量，以便稍后在模拟中的测试中进行检查。

(即使我建议使用 Test::MockModule，但你明确指定不使用它)