Permalink
Browse files

test that sub-module MANIFESTs include all the files the main MANIFES…

…T does

and fix the sub-module MANIFESTs
  • Loading branch information...
1 parent 76ae98a commit e4b2e1a28e3d244c677722df28a6431d35ea063c @tonycoz committed Feb 23, 2013
Showing with 26 additions and 0 deletions.
  1. +1 −0 JPEG/MANIFEST
  2. +2 −0 T1/MANIFEST
  3. +23 −0 t/x91manifest.t
View
1 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
View
2 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
View
23 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");
+}

0 comments on commit e4b2e1a

Please sign in to comment.