我如何模拟perl中的Exit行为？

发布时间：2020-12-16 06:18:59 所属栏目：大数据来源：网络整理

导读：假设在一个PERL模块中有一个子程序检查 – sub exam { .... .... exit 0; } 我想为这个API编写测试用例 – is('exam',"exam subroutine works properly"); 但它不起作用,因为在退出0之后,PERL脚本即将发布. 所以我的问题是我们如何模仿退出的行为？解决方法

假设在一个PERL模块中有一个子程序检查 –

sub exam  
{  
    ....  
    ....  
    exit 0;  
}

我想为这个API编写测试用例 –

is('exam',"exam subroutine works properly");

但它不起作用,因为在退出0之后,PERL脚本即将发布.
所以我的问题是我们如何模仿退出的行为？

解决方法

尝试使用 Test::Exit

perl  -le 'use Test::More tests => 2; use Test::Exit ; sub s1 { exit $_[0] }; exits_zero( sub{ s1(0)},q{exit 0}); exits_ok(sub {s1(1)},q{exit 1}); ' 
    1..2
    ok 1 - exit 0
    ok 2 - exit 1

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!