是否可能使用或需要Perl脚本而不执行其语句?
发布时间:2020-12-15 21:17:44 所属栏目:大数据 来源:网络整理
导读:我需要对一些旧的脚本添加单元测试,脚本基本上都是以下形式: #!/usr/bin/perl# Main codefoo();bar();# subssub foo {}sub bar {} 如果我尝试在单元测试中“要求”这个代码,则代码的主要部分将运行,我希望能够单独测试“foo”。 有没有办法这样做没有移
我需要对一些旧的脚本添加单元测试,脚本基本上都是以下形式:
#!/usr/bin/perl # Main code foo(); bar(); # subs sub foo { } sub bar { } 如果我尝试在单元测试中“要求”这个代码,则代码的主要部分将运行,我希望能够单独测试“foo”。 有没有办法这样做没有移动foo,bar进入一个单独的.pm文件? 解决方法
单元测试脚本的另一个常见技巧是将其代码的正文包装到“调用者”块中:
#!/usr/bin/perl use strict; use warnings; unless (caller) { # startup code } sub foo { ... } 当从命令行,cron,bash脚本等运行时,它正常运行。但是,如果您从另一个Perl程序加载它,则“except(caller){…}”代码不会运行。然后在你的测试程序中,声明一个命名空间(因为脚本可能运行在主程序包:)中的代码和’做’脚本。 #!/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 “做”比eval更有效率,而且相当干净。 测试脚本的另一个技巧是使用Expect.这是更干净,但也更难使用,如果你需要模拟任何东西,它不会让你覆盖脚本中的任何东西。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |