xt/x91manifest.t

   1 #!perl -w
   2 use strict;
   3 use ExtUtils::Manifest qw(maniread);
   4 use Test::More;
   5 use File::Spec;
   6
   7 my @sub_dirs = qw(T1 FT2 W32 TIFF PNG GIF JPEG);
   8
   9 plan tests => scalar @sub_dirs;
  10
  11 my $base_mani = maniread();
  12 my @base_mani = keys %$base_mani;
  13 for my $sub_dir (@sub_dirs) {
  14   my @expected = map { my $x = $_; $x =~ s(^$sub_dir/)(); $x }
  15     grep /^$sub_dir\b/, @base_mani;
  16   push @expected,
  17     "MANIFEST", "MANIFEST.SKIP", "Changes", "inc/Devel/CheckLib.pm";
  18   @expected = sort @expected;
  19
  20   my $found = maniread(File::Spec->catfile($sub_dir, "MANIFEST"));
  21   my @found = sort keys %$found;
  22   is_deeply(\@found, \@expected, "check sub-MANIFEST for $sub_dir");
  23 }