perl - 为 Dist::Zilla 铸币模块编写测试

Question

是时候为 Dist::Zilla::Plugin::Catalyst 编写功能测试了.但我意识到我不知道从哪里开始。我知道我必须有一个我的测试套件可以识别的自定义类型转换配置文件，而且我可能会进行测试以确保所有正确的文件都以合适的权限输出。我完全不确定您使用什么 DZ 模块来包含铸币配置文件，或者如何启动铸币，然后检查输出(因为我怀疑它将使用临时目录)。

有人可以给我一些指示吗？是否有任何其他具有测试的铸币模块？

Answer 1

这是一个非常基本的铸币机测试文件。

#!/usr/bin/perl
use strict;
use warnings;
use Dist::Zilla::Tester;
use Test::More;
use Path::Class;

my $tzil = Minter->_new_from_profile(
    # which profile to run e.g. dzil new  -p
    [ Default => 'default' ],
     # app name
    { name => 'CatApp', },
    # location of whats esessntially your tests ~/.dzil
    { global_config_root => dir('corpus/mint')->absolute },
);

# same as running dzil new
$tzil->mint_dist;

# mint root, obviously getting the location of the temporary repo creation
my $mr   = dir( $tzil->tempdir )->subdir('mint');

# test to see if CatApp.pm exists
ok( -e $mr->subdir('lib')->file('CatApp.pm'), 'CatApp.pm exists');
done_testing

当然，对于许多真实测试，您还需要阅读生成的文件。这可以通过 $tzil->slurp_file('file'); 来完成。

测试 minted dist 与常规 Dist::Zilla::Tester 没有太大区别测试，所以你可能希望阅读我在 writing a simple Dist::Zilla::Tester test 上写的博客.