当被测试者在 Perl 中使用 TAP 失败退出时，是否可以测试预期的错误？

Question

假设您正在运行一些单元测试，并且您想查看正在测试的方法（或脚本或函数或其他内容）是否失败。如何设置这样的测试？我希望有这样的事情：

ok( $obj->method($my, $bad, $params) == DEATH, 'method dies as expected');

虽然我不知道它是如何工作的，因为当传递错误的参数并且测试脚本停止时，方法会死掉。

还有别的办法吗？

Answer 1

您是否尝试过 Test::Exception ？ dies_ok 应该做你想做的。例如：

# Check that something died - we do not care why
dies_ok { $foo->method } 'expecting to die';

Answer 2

我推荐 Test::Fatal 而不是 Test::Exception。

Test::Exception 已经存在很长时间了，因此很多现有的测试套件都使用它，但 Test::Fatal 更容易学习。 Test::Fatal 仅导出 1 个函数：异常。这会运行关联的代码并返回它引发的异常，如果运行没有错误则返回 undef。然后，您可以使用任何正常的 Test::More 函数测试该返回值，例如is、isnt、like 或 isa_ok。

Test::Exception 要求您学习它自己的测试函数，例如 throws_ok 和 dies_ok，并记住不要在代码和测试名称之间放置逗号。

所以，你的例子是：

use Test::More;
use Test::Fatal;

my $obj = ...;

isnt(exception { $obj->method($my, $bad, $params) },
     undef, 'method dies as expected');

或者你可以使用 like 来匹配预期的错误消息，或者使用 isa_ok 来测试它是否抛出了正确的异常对象类。

与 Test::Exception 相比，Test::Fatal 只是为您提供了更大的灵活性和更少的学习曲线。

Answer 3

实际上没有必要使用模块来做到这一点。您可以将预计失败的调用包装在 eval 块中，如下所示：

ok !eval {$obj->method($my, $bad, $params); 1}, 'method dies as expected';

如果 eval 中一切顺利，它将返回最后执行的语句，即在本例中为 1。如果失败，eval 将返回 undef。这与 ok 想要的相反，因此 ! 翻转值。

如果需要，您可以按照该行检查实际的异常消息：

like $@, qr/invalid argument/, 'method died with invalid argument';