#!/usr/bin/perl -w # DESCRIPTION: Perl ExtUtils: Type 'make test' to test this package # # Copyright 2007-2009 by Wilson Snyder. This program is free software; # you can redistribute it and/or modify it under the terms of either the GNU # Lesser General Public License Version 3 or the Perl Artistic License Version 2.0. use strict; use Test; BEGIN { plan tests => 1 } if (!$ENV{VERILATOR_AUTHOR_SITE}) { skip("author only test (harmless)",1); } else { eval { use ExtUtils::Manifest; }; $ExtUtils::Manifest::Quiet = 1; my ($missing, $extra) = ExtUtils::Manifest::fullcheck(); my $bad; foreach my $file (@{$missing}) { next if $file eq "README"; warn "%Warning: MANIFEST listed file not found: $file\n"; $bad = 1; } foreach my $file (@{$extra}) { warn "%Warning: MANIFEST maybe missing: $file\n"; $bad = 1; } ok (!$bad); }