perl - 是否可以使用或需要 Perl 脚本而不执行其语句？

Question

我需要在一些旧脚本中添加单元测试，这些脚本基本上都是以下形式：

#!/usr/bin/perl

# Main code
foo();
bar();

# subs
sub foo {

}
sub bar {

}

如果我尝试在单元测试中“要求”此代码，则代码的主要部分将运行，因为我希望能够单独测试“foo”。

有没有办法做到这一点而不将 foo,bar 移动到单独的 .pm 文件中？

Answer 1

假设您没有安全问题，请将其包装在 sub { ... } 中并对其进行评估：

use File::Slurp "read_file";
eval "package Script; sub {" . read_file("script") . "}";

is(Script::foo(), "foo");

（注意 eval 不在脚本关闭的任何词汇的范围内）。

Answer 2

单元测试脚本的另一个常见技巧是将代码主体包装到“调用者”块中：

#!/usr/bin/perl

use strict;
use warnings;

unless (caller) {
    # startup code
}

sub foo { ... }

从命令行、cron、bash 脚本等运行时，它可以正常运行。但是，如果您从另一个 Perl 程序加载它，“除非（调用者）{...}”代码不会运行。然后在您的测试程序中，声明一个命名空间（因为脚本可能正在运行包 main:: 中的代码）并“执行”该脚本。

#!/usr/bin/perl

package Tests::Script;   # avoid the Test:: namespace to avoid conflicts
                         # with testing modules
use strict;
use warnings;

do 'some_script' or die "Cannot (do 'some_script'): $!";

# write your tests

'do' 比 eval 更有效，并且为此相当干净。

测试脚本的另一个技巧是使用Expect。这更干净，但也更难使用，如果您需要模拟任何内容，它不会让您覆盖脚本中的任何内容。

Answer 3

啊，旧的“我如何对程序进行单元测试”问题。最简单的技巧是在它开始做事之前把它放在你的程序中：

return 1 unless $0 eq __FILE__;

__FILE__是当前的源文件。 $0是正在运行的程序的名称。如果它们相同，则您的代码将作为程序执行。如果它们不同，则将其作为库加载。

这足以让您开始对程序中的子例程进行单元测试。

require "some/program";
...and test...

下一步是将子程序外的所有代码移到 中main，然后您可以这样做：

main() if $0 eq __FILE__;

现在您可以像测试任何其他子程序一样测试 main()。

一旦完成，您就可以开始考虑将程序的子例程移到它们自己的真实库中。