如何测试::更多、更智能的交易？

Question

目前我正在创建这样的事务测试：

use Test::More;
use Try::Tiny;

my $dbh = ...;

subtest 'do something envolving a transaction' => sub {
    $dbh->begin_work();
    try {
      my $obj = create_in_db({...}, $dbh);
      my $result = MyTestObject->new()->do_something($obj);
      ok $result "We've got great results";
    } catch {
        croak $_;
    } finally {
        $dbh->rollback(); #kills $obj
    };
};

done_testing();
1;

这可行，但有缺点，错误行始终是 catch 块和子测试的末尾，而不是错误实际发生的位置。而且很快就会有很多无聊的样板代码。

如何以更聪明的方式做到这一点？

Answer 1

事实上，错误 (croak) 是在 try-catch-finally 块^† 的末尾报告的，而不是在调用有问题的代码的地方报告的似乎是由于 Try::Tiny 与名称空间的混淆所致；请参阅这篇文章中的讨论和评论。在复杂的 尝试子。一个简单的演示

use warnings;
use strict;
use feature 'say';

use Carp qw(croak);
use Try::Tiny;

sub this_croaks { croak "ouch from a sub in ", __PACKAGE__ }  # line 8

try {
    this_croaks();                    # line 11
}
catch   { print "In try: $_" }
finally { say "clean up" };           # line 14

打印

In try: ouch from a sub in main at try_tiny_mixup.pl line 14.
clean up

But the croak-ing sub is called at line 11 so that should be reports, not line 14.^‡

更改 croak to die 使其打印 line 8 （这当然不是解决方案），同时使用 eval 而不是 Try::Tiny 结果正确第 11 行 已打印（什么是有效的解决方案）。请参阅链接的帖子。我不知道 Try::Tiny 是否有修复，但有直接替代品，请参见下文。

我不认为这以任何方式取决于执行的测试（正如我们所知，这里涉及数据库事务）。如果没有可运行的示例，我无法更具体地检查。

完全有效的一件事是恢复到 eval，自 5.14 起 不再带有 Try::Tiny 所声明的原因的微妙之处。 Like

eval {
    this_croaks();
};
if ($@) { 
    print "In eval: $@";
}
say "clean up";

This 仍然过时，但它的工作原理就像预期的那样（并且 Try::Tiny 带有 自己的扭曲）。

希望即将到来的原生try/catch，引入为5.34.0 中的实验，不会出现这样的问题。^§目前还没有

use warnings;
use v5.34.0;

use Carp qw(croak);

use experimental 'try';

sub this_croaks { croak "ouch from a sub in ", __PACKAGE__ }  # line 9

try {
    this_croaks();      # line 12
}
catch ($e)  { 
    print "In try: $e";
}
say "clean up";         # there is no "finally" keyword (see text and links)

（pragma experimental 替换了实验功能所需的两个语句。）

这正确地将其固定为第 12 行（来自第 9 行）的调用。请注意，还没有 finally 关键字。模块 Syntax::Keyword::Tiny （参见脚注）确实有它，因此可以使用它作为 Try::Tiny 的直接替代品。

我怀疑清除这个问题也会清除测试的行为。 （但我没有测试这一点。）

---

^† 匿名子句的语法辅助（“糖”）（在很多方面并不那么幼稚）

^‡ 已提交错误报告

^§ 这是从 Syntax::Keyword::Try 由作者自己编写，因此您可能想尝试一下 - 但最好使用 功能::兼容::尝试，他们说。请参阅两者的文档，并查看其跟踪器。

当我们进行实验时，请参阅 perlexperiment。