是否可以在不执行Perl脚本语句的情况下使用或需要该脚本？
我需要在一些旧的脚本中添加单元测试，这些脚本基本上都是以下形式的：
#!/usr/bin/perl
# Main code
foo();
bar();
# subs
sub foo {
}
sub bar {
}如果我试图在单元测试中“需要”这段代码，代码的主要部分将会运行，因为我希望能够隔离地测试"foo“。
有没有办法不把foo，bar移到一个单独的.pm文件中呢？
回答 3
Stack Overflow用户
发布于 2008-10-24 07:18:41
单元测试脚本的另一个常见技巧是将它们的代码体包装到一个“caller”块中：
#!/usr/bin/perl
use strict;
use warnings;
unless (caller) {
# startup code
}
sub foo { ... }当从命令行、cron、bash脚本等运行时，它可以正常运行。但是，如果从另一个Perl程序加载它，“除非(caller) {...}”代码不会运行。然后，在您的测试程序中，声明一个名称空间(因为脚本可能正在运行main：：包中的代码)并'do‘脚本。
#!/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。这更干净，但也更难使用，如果你需要模拟任何东西，它不会让你覆盖脚本中的任何东西。
Stack Overflow用户
发布于 2008-10-24 05:24:10
假设您没有安全问题，将其包装在sub { ... }中并对其求值：
use File::Slurp "read_file";
eval "package Script; sub {" . read_file("script") . "}";
is(Script::foo(), "foo");(注意eval不在脚本会关闭的任何词典的范围内)。
Stack Overflow用户
发布于 2008-10-24 07:56:13
啊，老问题“我该如何对程序进行单元测试”。最简单的技巧是在程序开始执行之前将其放入程序中：
return 1 unless $0 eq __FILE__;__FILE__是当前的源文件。$0是正在运行的程序的名称。如果它们相同，则您的代码将作为程序执行。如果它们不同，则将其作为库加载。
这足以让您开始对程序中的子例程进行单元测试。
require "some/program";
...and test...下一步是将子例程之外的所有代码移到main中，然后您可以这样做：
main() if $0 eq __FILE__;现在，您可以像测试任何其他子例程一样测试main()。
一旦完成，您就可以开始考虑将程序子例程移出到它们自己的真实库中。
https://stackoverflow.com/questions/232475
复制相似问题
腾讯云开发者
