libcryptx-perl/t/002_all_pm.t

55 lines
2.0 KiB
Perl
Raw Permalink Normal View History

2018-03-22 15:51:09 +01:00
use strict;
use warnings;
use Test::More;
2018-03-22 15:54:03 +01:00
plan skip_all => "set TEST_POD to enable this test (developer only!)" unless $ENV{TEST_POD};
2018-03-22 15:51:09 +01:00
plan skip_all => "File::Find not installed" unless eval { require File::Find };
plan tests => 1;
2018-03-22 15:54:03 +01:00
sub _read {
open my $fh, "<", shift;
binmode $fh;
return do { local $/; <$fh> };
}
my @err;
my $cryptx = _read("lib/CryptX.pm");
my $compile_t = _read("t/001_compile.t");
2018-03-22 15:51:09 +01:00
my @files;
File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');
for my $m (sort @files) {
2018-03-22 15:54:03 +01:00
my $content = _read($m);
push @err, "ERROR: no newline at the end '$m'" unless $content =~ /\n$/s;
push @err, "ERROR: avoid __END__ '$m'" if $content =~ /__END__/s;
push @err, "ERROR: =pod ... =cut '$m'" unless $content =~ /=pod\n.*?=cut\n$/s;
push @err, "ERROR: trailing whitespace '$m'" if $content =~ / \n/s;
push @err, "ERROR: avoid tabs '$m'" if $content =~ /\t/s;
push @err, "ERROR: avoid CRLF '$m'" if $content =~ /\r/s;
2018-03-22 15:51:09 +01:00
$m =~ s|[\\/]|::|g;
$m =~ s|^lib::||;
$m =~ s|\.pm$||;
2018-03-22 15:54:03 +01:00
push @err, "ERROR: '$m' is missing in CryptX.pm" unless $cryptx =~ /L<$m>/s || $m =~ /^(CryptX|Math::BigInt::LTM|Crypt::(PK|Mode|Mac|AuthEnc|Checksum))$/;
push @err, "ERROR: '$m' is missing in 001_compile.t" unless $compile_t =~ /\nuse $m;/s;
eval "use $m; 1;" or push @err, "ERROR: 'use $m' failed";
2018-03-22 15:51:09 +01:00
}
2018-03-22 15:54:03 +01:00
my @others = ('CryptX.xs');
File::Find::find({ wanted=>sub { push @others, $_ if /\.inc$/ }, no_chdir=>1 }, 'inc');
File::Find::find({ wanted=>sub { push @others, $_ if /\.(t|pl)$/ }, no_chdir=>1 }, 't');
for my $m (sort @others) {
my $content = _read($m);
push @err, "ERROR: no newline at the end '$m'" unless $content =~ /\n$/s;
push @err, "ERROR: trailing whitespace '$m'" if $content =~ / \n/s;
push @err, "ERROR: avoid tabs '$m'" if $content =~ /\t/s;
push @err, "ERROR: avoid CRLF '$m'" if $content =~ /\r/s;
}
warn "$_\n" for (@err);
die if @err;
2018-03-22 15:51:09 +01:00
ok 1, 'all done';