test that sub-module MANIFESTs include all the files the main MANIFEST does

and fix the sub-module MANIFESTs

diff --git a/JPEG/MANIFEST b/JPEG/MANIFEST
index 3ce1da52f72cfaeb65d8429c7ffdf71aff59d5a2..43fd14f7b95a30dd70fac9b9b3b29ff48fc79bbe 100644 (file)
--- a/JPEG/MANIFEST
+++ b/JPEG/MANIFEST
@@ -12,6 +12,7 @@ MANIFEST.SKIP
 README
 t/t00load.t
 t/t10jpeg.t
+t/t20limit.t
 testimg/209_yonge.jpg          Regression test: #17981
 testimg/exiftest.jpg           Test image for EXIF parsing
 testimg/scmyk.jpg              Simple CMYK JPEG image

diff --git a/T1/MANIFEST b/T1/MANIFEST
index 703dc6b8c74e0a78b37d3c917d08e92572e575cd..562f3debe9152dfeb18118ec913c7a582265805b 100644 (file)
--- a/T1/MANIFEST
+++ b/T1/MANIFEST
@@ -14,6 +14,8 @@ MANIFEST.SKIP
 README
 t/t10type1.t
 t/t20oo.t
+t/t30thread.t
 t/t90std.t
 T1.pm
 T1.xs
+typemap

diff --git a/t/x91manifest.t b/t/x91manifest.t
new file mode 100644 (file)
index 0000000..b638fc3
--- /dev/null
+++ b/t/x91manifest.t
@@ -0,0 +1,23 @@
+#!perl -w
+use strict;
+use ExtUtils::Manifest qw(maniread);
+use Test::More;
+use File::Spec;
+
+my @sub_dirs = qw(T1 FT2 W32 TIFF PNG GIF JPEG);
+
+plan tests => scalar @sub_dirs;
+
+my $base_mani = maniread();
+my @base_mani = keys %$base_mani;
+for my $sub_dir (@sub_dirs) {
+  my @expected = map { my $x = $_; $x =~ s(^$sub_dir/)(); $x }
+    grep /^$sub_dir\b/, @base_mani;
+  push @expected,
+    "MANIFEST", "MANIFEST.SKIP", "Changes", "inc/Devel/CheckLib.pm";
+  @expected = sort @expected;
+
+  my $found = maniread(File::Spec->catfile($sub_dir, "MANIFEST"));
+  my @found = sort keys %$found;
+  is_deeply(\@found, \@expected, "check sub-MANIFEST for $sub_dir");
+}