t/distro/manifest.t

   1 #! perl
   2 # Copyright (C) 2001-2006, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7 use lib qw( . lib ../lib ../../lib );
   8 use Test::More;
   9
  10 use ExtUtils::Manifest;
  11
  12 =head1 NAME
  13
  14 t/distro/manifest.t - check sanity of the MANIFEST file
  15
  16 =head1 SYNOPSIS
  17
  18     % prove t/distro/manifest.t
  19
  20 =head1 DESCRIPTION
  21
  22 Checks that the distribution and the MANIFEST file agree.
  23
  24 =cut
  25
  26 ok( -e $ExtUtils::Manifest::MANIFEST, 'MANIFEST exists' );
  27
  28 ok( -e $ExtUtils::Manifest::MANIFEST . '.SKIP', 'MANIFEST.SKIP exists' );
  29
  30 diag "this may take a while...";
  31
  32 $ExtUtils::Manifest::Quiet = 1;
  33
  34 my @missing = ExtUtils::Manifest::manicheck();
  35 ok( !@missing, 'manicheck()' )
  36     or diag("Missing files:\n\t@missing");
  37
  38 # remember to change the number of tests :-)
  39 BEGIN { plan tests => 3; }
  40
  41 # Local Variables:
  42 #   mode: cperl
  43 #   cperl-indent-level: 4
  44 #   fill-column: 100
  45 # End:
  46 # vim: expandtab shiftwidth=4: