我需要在一些旧脚本中添加单元测试，这些脚本基本上都是以下形式：
#!/usr/bin/perl
# Main code
foo();
bar();
# subs
sub foo {
}
sub bar {
}
如果我尝试在单元测试中“要求”此代码，则代码的主要部分将运行，因为我希望能够单独测试“foo”。
有没有办法在不将 foo,bar 移动到单独的 .pm 文件的情况下做到这一点？
【问题讨论】：
标签： perl testing refactoring
假设您没有安全问题，请将其包装在 sub { ... } 中并对其进行评估：
use File::Slurp "read_file";
eval "package Script; sub {" . read_file("script") . "}";
is(Script::foo(), "foo");
（注意 eval 不在脚本关闭的任何词法范围内）。
【讨论】：
单元测试脚本的另一个常见技巧是将代码主体包装到“调用者”块中：
#!/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。这更简洁，但也更难使用，如果您需要模拟任何内容，它不会让您覆盖脚本中的任何内容。
【讨论】：
unless caller 块中编写脚本？还是通过do or die 运行测试？
啊，老问题“我如何对程序进行单元测试”。最简单的技巧是在程序开始执行操作之前将其放入程序中：
return 1 unless $0 eq __FILE__;
__FILE__ 是当前源文件。 $0 是正在运行的程序的名称。如果它们相同，则您的代码正在作为程序执行。如果它们不同，则将其作为库加载。
这足以让您开始对程序中的子例程进行单元测试。
require "some/program";
...and test...
下一步是将子程序外的所有代码移动到main，然后你可以这样做：
main() if $0 eq __FILE__;
现在您可以像测试任何其他子例程一样测试 main()。
一旦完成，您就可以开始考虑将程序的子例程移到它们自己的真实库中。
【讨论】：