extend some variable types to avoid overflows for mediancut
[imager.git] / xt / x91manifest.t
CommitLineData
e4b2e1a2
TC
1#!perl -w
2use strict;
3use ExtUtils::Manifest qw(maniread);
4use Test::More;
5use File::Spec;
6
7my @sub_dirs = qw(T1 FT2 W32 TIFF PNG GIF JPEG);
8
9plan tests => scalar @sub_dirs;
10
11my $base_mani = maniread();
12my @base_mani = keys %$base_mani;
13for 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}