diff options
Diffstat (limited to 't/write_default_maniskip.t')
-rw-r--r-- | t/write_default_maniskip.t | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/t/write_default_maniskip.t b/t/write_default_maniskip.t new file mode 100644 index 0000000..40389f2 --- /dev/null +++ b/t/write_default_maniskip.t @@ -0,0 +1,42 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use lib 't/lib'; +use MBTest 'no_plan'; +use DistGen; +use Cwd; + +blib_load('Module::Build'); + +{ + my $cwd = Cwd::cwd; + chdir MBTest->tmpdir(); + + my $build = Module::Build->new( + module_name => "Foo::Bar", + 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); +} |