如何将 Moose 与 Test::Class 一起使用？

Question

我目前正在重构由同事构建的测试套件，并希望在此过程中使用 Test::Class[::Most] 。当我开始时，我发现我真的可以使用几个 Moose 角色来稍微解耦代码。然而，这似乎不太可能——我收到这样的错误消息：

Prototype mismatch: sub My::Test::Class::Base::blessed: none vs ($) at
/usr/lib/perl5/vendor_perl/5.8.8/Sub/Exporter.pm line 896

所以问题是：我可以将 Moose 与 Test::Class 一起使用吗如果是这样，怎么办？

PS：代码是这样的：

package My::Test::Class::Base;
use Moose;
use Test::Class::Most;

with 'My::Cool::Role';

has attr => ( ... );

Answer 1

Test::Deep（通过 Test::Class::Most 通过 Test::Most 加载）正在导出自己的 blessed 以及许多其他可能不应该的东西。它没有记录。 Moose 还导出了更常见的 Scalar::Util::blessed。由于 Scalar::Util::blessed 相当常见，Test::Deep 不应该导出自己不同的 blessed。

不幸的是，没有什么好办法来阻止它。我建议在 My::Test::Class::Base 中执行以下 hack:

package My::Test::Class::Base;

# Test::Class::Most exports Test::Most exports Test::Deep which exports
# an undocumented blessed() which clashes with Moose's blessed().
BEGIN {
    require Test::Deep;
    @Test::Deep::EXPORT = grep { $_ ne 'blessed' } @Test::Deep::EXPORT;
}

use Moose;
use Test::Class::Most;

并将问题报告给 测试::深 和 测试::大多数。

Answer 2

您可以通过（例如）压制特定的导出：

use Test::Deep '!blessed';

Answer 3

我刚刚发布了 Test::Most 的更新版本。如果您安装 0.30，这个问题就会消失。

Answer 4

找到此页面的人们可能也有兴趣了解各种 Test::Class-Moose 混搭模块：

• Test ::Able
• 测试::Sweet
• Test::Class::Moose （尚未在 CPAN 上）

对于其中任何一个都需要进行一定程度的重构-- 语法有所不同。然而，通过一定量的查找和替换，您可能能够进行相当快速的转换。