t/92manifest.t

   1 #!perl -w
   2 use strict;
   3 use Test::More;
   4 use ExtUtils::Manifest 'fullcheck';
   5
   6 # by default EU::Manifest complains to STDERR, suppress that
   7 $ExtUtils::Manifest::Quiet = 1;
   8
   9 my $dev_tests = -e '.svn';
  10 if ($dev_tests) {
  11   plan tests => 2; # for local tests we check that there's no extras
  12 }
  13 else {
  14   plan tests => 1; # a user may have created junk playing with it
  15 }
  16
  17 my ($missing, $extra) = fullcheck();
  18
  19 is_deeply($missing, [], "No files missing");
  20 is_deeply($extra,   [], "No extra files")
  21   if $dev_tests;