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
32
33
34
35
36
37
38
39
|
#!/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 { require "./t/test_utils.pl"; }
eval { use ExtUtils::Manifest; };
my $manifest = ExtUtils::Manifest::maniread();
plan tests => (1 + (keys %{$manifest}));
ok(1);
foreach my $filename (sort keys %{$manifest}) {
if (!$ENV{VERILATOR_AUTHOR_SITE}) {
skip("author only test (harmless)",1);
next;
}
if ($filename =~ /README/) { # May not even exist
skip("File doesn't need check (harmless)",1);
next;
}
print "Space test of: $filename\n";
my $wholefile = wholefile($filename);
if ($wholefile
&& $wholefile !~ /[ \t]+\n/
&& $wholefile !~ /^[ \t]*[ ]+\t/) {
ok(1);
} elsif ($filename =~ m!\.out!
|| $filename =~ m!/gen/!) {
skip("File doesn't need check (harmless)",1);
} else {
warn "%Error: $filename: Bad indentation\n";
ok(0);
}
}
|
