From: Tony Cook <tony@develop-help.com>
Date: Sat, 23 Feb 2013 03:28:15 +0000 (+1100)
Subject: test that sub-module MANIFESTs include all the files the main MANIFEST does
X-Git-Tag: v0.94_01~12
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/e4b2e1a28e3d244c677722df28a6431d35ea063c

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 3ce1da52..43fd14f7 100644
--- 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 703dc6b8..562f3deb 100644
--- 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
index 00000000..b638fc31
--- /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");
+}