Module-Build-0.4214HEADModule-Build-0.4214master

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);
+}