假设在一个PERL模块中有一个子程序检查 –
sub exam
{
....
....
exit 0;
}
我想为这个API编写测试用例 –
is('exam',"exam subroutine works properly");
解决方法
尝试使用
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