test that sub-module MANIFESTs include all the files the main MANIFEST does
authorTony Cook <tony@develop-help.com>
Sat, 23 Feb 2013 03:28:15 +0000 (14:28 +1100)
committerTony Cook <tony@develop-help.com>
Sat, 23 Feb 2013 03:28:15 +0000 (14:28 +1100)
and fix the sub-module MANIFESTs

JPEG/MANIFEST
T1/MANIFEST
t/x91manifest.t [new file with mode: 0644]

index 3ce1da5..43fd14f 100644 (file)
@@ -12,6 +12,7 @@ MANIFEST.SKIP
 README
 t/t00load.t
 t/t10jpeg.t
 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
 testimg/209_yonge.jpg          Regression test: #17981
 testimg/exiftest.jpg           Test image for EXIF parsing
 testimg/scmyk.jpg              Simple CMYK JPEG image
index 703dc6b..562f3de 100644 (file)
@@ -14,6 +14,8 @@ MANIFEST.SKIP
 README
 t/t10type1.t
 t/t20oo.t
 README
 t/t10type1.t
 t/t20oo.t
+t/t30thread.t
 t/t90std.t
 T1.pm
 T1.xs
 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
@@ -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");
+}