extend some variable types to avoid overflows for mediancut
[imager.git] / xt / x50cpod.t
1 #!perl -w
2 use strict;
3 use Test::More;
4 use ExtUtils::Manifest qw(maniread);
5
6 # RT #74875
7 my $manifest = maniread();
8 my @files = grep /\.(c|im|h)$/, sort keys %$manifest;
9 plan tests => scalar @files;
10
11 ++$|;
12 for my $file (@files) {
13   my $ok = 1;
14   if (open my $fh, "<", $file) {
15     my $in_pod;
16     while (<$fh>) {
17       if (/^=cut/) {
18         if ($in_pod) {
19           $in_pod = 0;
20         }
21         else {
22           diag("$file:$.: found =cut without pod");
23           $ok = 0;
24         }
25       }
26       elsif (/^=\w+/) {
27         $in_pod = $.;
28       }
29       elsif (m(\*/)) {
30         if ($in_pod) {
31           diag("$file:$.: unclosed pod starting $in_pod");
32           $ok = 0;
33         }
34       }
35     }
36     close $fh;
37   }
38   else {
39     diag("Cannot open $file: $!");
40     $ok = 0;
41   }
42   ok($ok, $file);
43 }