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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
use strict;
use warnings;
use Archive::Tar;
use Test::More 0.88;
use Test::DZil;
my $tzil = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{ add_files => {
'source/zero' => '',
'source/dist.ini' => simple_ini({
name => 'DZT',
}, 'GatherDir', 'MakeMaker', 'FakeRelease')
},
},
);
$tzil->release;
is($tzil->VERSION, Dist::Zilla->VERSION, "zilla tester VERSION");
my $basename = $tzil->dist_basename;
my $tarball = $tzil->archive_filename;
$tarball = $tzil->built_in->parent->child('source')->child($tarball);
$tarball = Archive::Tar->new($tarball->stringify);
my $makefile_pl = File::Spec::Unix->catfile($basename, 'Makefile.PL');
ok(
$tarball->contains_file( $makefile_pl ),
"Makefile.PL is located at the root of a Test-built archive",
);
my ($file) = $tarball->get_files( $makefile_pl );
like($file->get_content, qr{ExtUtils}, "the file contains the real content");
my $zero_byte = File::Spec::Unix->catfile($basename, 'zero');
my ($zero_byte_file) = $tarball->get_files( $zero_byte );
is($zero_byte_file->get_content, "", "zero byte file is empty");
my $tzil2 = Builder->from_config(
{ dist_root => 'corpus/dist/DZT' },
{ add_files => {
'source/zero' => '',
'source/dist.ini' => simple_ini({
name => 'DZT',
}, 'GatherDir', 'MakeMaker', 'FakeRelease')
},
},
);
$tzil2->test;
ok((grep { /all's well/ } @{ $tzil2->log_messages }),
"tester can run the test method");
done_testing;
|
