t/distro/manifest_generated.t

   1 #! perl
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8
   9 use Test::More;
  10 plan(tests => 5);
  11
  12 =head1 NAME
  13
  14 t/distro/manifest_generated.t - check sanity of MANIFEST.generated file
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/distro/manifest_generated.t
  19
  20 =head1 DESCRIPTION
  21
  22 Checks that MANIFEST.generated is in the required format (eg: sorted) and that it
  23 contains appropriate items (eg: PMC generated files).
  24
  25 =cut
  26
  27 ok( -e 'MANIFEST.generated', 'MANIFEST.generated exists' );
  28
  29 # slurp MANIFEST.generated, ignoring comment lines
  30 open my $fh, '<', 'MANIFEST.generated'
  31     or die "open MANIFEST.generated: $!";
  32 my @contents = grep {!/^#/} map {chomp; $_} <$fh>;
  33 close $fh;
  34
  35 is_deeply([sort @contents], \@contents, 'MANIFEST.generated is sorted');
  36
  37 # parse records
  38 my @records;
  39 is_deeply(  [grep {
  40         my $match = m/^ (\S+) \s+ (\[ \w* \] \w*) $/x;
  41         push @records, [$1, $2] if $match;
  42         not $match } @contents],
  43         [],
  44         'MANIFEST.generated contains no irregular records' );
  45
  46 # check for appropriate contents
  47 my %contained_files = map {$$_[0] => 1} @records;
  48 is_deeply(  [],
  49         [grep {not exists $contained_files{$_}} glob('include/pmc/*.h')],
  50         'MANIFEST.generated lists all core PMC headers' );
  51
  52 is_deeply(  [],
  53         [grep {not exists $contained_files{$_}} glob('src/pmc/*.dump')],
  54         'MANIFEST.generated lists all core PMC dump files' )
  55
  56 # Local Variables:
  57 #   mode: cperl
  58 #   cperl-indent-level: 4
  59 #   fill-column: 100
  60 # End:
  61 # vim: expandtab shiftwidth=4: