我需要将单元测试添加到一些旧脚本中,脚本基本上都采用以下形式:
#!/usr/bin/perl
# Main code
foo();
bar();
# subs
sub foo {
}
sub bar {
}
如果我尝试在单元测试中“要求”此代码,代码的主要部分将会运行,因为我希望能够单独测试“foo”。
有没有办法在不移动foo的情况下执行此操作,禁止进入单独的.pm文件?
答案 0 :(得分:17)
假设您没有安全问题,请将其包装在子{...}中并评估它:
use File::Slurp "read_file";
eval "package Script; sub {" . read_file("script") . "}";
is(Script::foo(), "foo");
(注意eval不在脚本将被脚本关闭的范围内)。
答案 1 :(得分:16)
单元测试脚本的另一个常见技巧是将其代码体包装到“调用者”块中:
#!/usr/bin/perl
use strict;
use warnings;
unless (caller) {
# startup code
}
sub foo { ... }
从命令行,cron,bash脚本等运行时,它会正常运行。但是,如果从另一个Perl程序加载它,则“except(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。这样更干净,但也更难使用,如果你需要模拟任何东西,它不会让你覆盖脚本中的任何内容。
答案 2 :(得分:10)
return 1 unless $0 eq __FILE__;
__FILE__
是当前的源文件。 $0
是正在运行的程序的名称。如果它们相同,则代码将作为程序执行。如果它们不同,则将其作为库加载。
这足以让你开始对程序中的子程序进行单元测试。
require "some/program";
...and test...
下一步是将子程序外的所有代码移到main
,然后你可以这样做:
main() if $0 eq __FILE__;
现在你可以像任何其他子程序一样测试main()。
一旦完成,您就可以开始考虑将程序的子程序移动到他们自己的真实库中。