1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl -w
# DESCRIPTION: Perl ExtUtils: Type 'make test' to test this package
#
# Copyright 2007-2024 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);
}
|
