Perl 鲤鱼 :confess unit test

Question

我正在尝试编写一个 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不正确？

Answer 1

您可以在 eval 表达式后检查 $@。

use strict;
use warnings;

use Test::More;

use Carp qw(confess);

sub err { confess('Bad thing'); }

eval { err };
like($@, qr/^Bad thing/, "confess('Bad thing')");

done_testing();