blob: 084d81ed3e247a07c66ddeb975b359d5c4f94b9b (
plain)
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
|
#!/usr/bin/perl
use strict;
use warnings;
use lib 't/lib';
use MBTest 'no_plan';
use DistGen;
use Cwd;
use_ok 'Module::Build';
ensure_blib 'Module::Build';
{
my $cwd = Cwd::cwd;
chdir MBTest->tmpdir();
my $build = Module::Build->new(
dist_name => "Foo-Bar",
dist_version => '1.23',
);
my $skip = "mskip.txt"; # for compatibility
$build->_write_default_maniskip($skip);
ok -r $skip, "Default maniskip written";
my $have = slurp($skip);
my $head;
if( $build->_eumanifest_has_include ) {
$head = "#!include_default\n";
}
else {
$head = slurp($build->_default_maniskip);
}
like $have, qr/^\Q$head\E/, "default MANIFEST.SKIP used";
like $have, qr/^# Avoid Module::Build generated /ms, "Module::Build specific entries";
like $have, qr/Foo-Bar-/, "distribution tarball entry";
DistGen::chdir_all($cwd);
}
|
