是否可以在不执行其语句的情况下使用或需要Perl脚本？

Question

我需要的单元测试添加一些老的脚本,这些脚本基本上都是以下形式:

#!/usr/bin/perl

# Main code
foo();
bar();

# subs
sub foo {

}
sub bar {

}

如果我尝试在单元测试中"要求"此代码,代码的主要部分将运行,因为我希望能够单独测试"foo".

有没有办法在不移动foo的情况下执行此操作,禁止进入单独的.pm文件？

Answer 1

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

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程序加载它,则"except(caller){...}"代码不会运行.然后在您的测试程序中,声明一个命名空间(因为该脚本可能正在包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().

完成后,您可以开始考虑将程序的子程序移动到他们自己的真实库中.