note GIF changes
[imager.git] / 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 }