[imager.git] / xt / x91manifest.t

#!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");
}
Commit	Line	Data
e4b2e1a2 TC	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	}