我正在尝试编写一个perl单元测试。我已经可以测试正常情况。但是,如果方法中生成错误,则使用Carp:confess "<message>"
打印错误信息。我无法在我的测试中捕获这种情况。
我尝试使用
dies_ok( <method call>, 'Expected Error' );
然而测试用例仍然失败。它会打印传递给Carp::confess的消息,然后打印:
Looks like your test exited with 111 before it could output anything. Dubious, test returned 111 (wstat 28416, 0x6f00)
有没有办法可以捕获这个错误?我甚至尝试了throws_ok
,但无效。
请指导我如何捕获这些错误。我是否不正确地使用了dies_ok
和throws_ok
?