1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
use strict;
use warnings;
use Test::More 0.88;
use Dist::Zilla::App::Tester;
use Test::DZil;
## SIMPLE TEST WITH DZIL::APP TESTER
$ENV{DZIL_GLOBAL_CONFIG_ROOT} = 't';
my $result = test_dzil('corpus/dist/DZ1', [ qw(build) ]);
is($result->error, undef, 'No errors');
is($result->exit_code, 0, "dzil would have exited 0");
ok(
(grep { $_ eq '[DZ] writing archive to DZ1-0.001.tar.gz' }
@{ $result->log_messages }),
"we logged the archive-creation",
);
## SIMPLE TEST WITH DZIL TESTER
require Dist::Zilla::Tester;
my $tester = Dist::Zilla::Tester->from_config(
{ dist_root => 'corpus/dist/DZT' },
{
add_files => { 'source/dist.ini' => simple_ini('@Classic') },
}
);
$tester->build;
ok(
(grep { $_->{message} =~ m<^\[DZ\]\s> } @{ $tester->chrome->logger->events }),
"we have at least some expected log content",
);
use YAML::Tiny;
my $yaml = YAML::Tiny->read($tester->built_in->child('META.yml'));
my $meta = $yaml->[0];
like($meta->{generated_by}, qr{Dist::Zilla}, "powered by... ROBOT DINOSAUR");
done_testing;
|
