t/x20spell.t

   1 #!perl -w
   2 use strict;
   3 use Test::More;
   4 use ExtUtils::Manifest qw(maniread);
   5 use File::Temp;
   6 eval "use Pod::Spell 1.01";
   7 plan skip_all => "Pod::Spell 1.01 required for spellchecking POD" if $@;
   8 my $manifest = maniread();
   9 my @pod = sort grep !/^inc/ && /\.(pm|pl|pod|PL)$/, keys %$manifest;
  10 plan tests => scalar(@pod);
  11 my @stopwords = qw/
  12 API
  13 Arnar
  14 BMP
  15 Blit
  16 CGI
  17 CMYK
  18 CPAN
  19 FreeType
  20 GIF
  21 HSV
  22 Hrafnkelsson
  23 ICO
  24 IMAGER
  25 Imager
  26 Imager's
  27 JPEG
  28 POSIX
  29 PNG
  30 PNM
  31 RGB
  32 RGBA
  33 SGI
  34 TGA
  35 TIFF
  36 UTF-8
  37 Uncategorized
  38 bilevel
  39 const
  40 dpi
  41 eg
  42 gaussian
  43 ie
  44 infix
  45 invocant
  46 metadata
  47 paletted
  48 postfix
  49 preload
  50 preloading
  51 preloads
  52 renderer
  53 tuple
  54 unary
  55 unseekable
  56 varargs
  57 /;
  58
  59 local %Pod::Wordlist::Wordlist = %Pod::Wordlist::Wordlist;
  60 for my $stop (@stopwords) {
  61   $Pod::Wordlist::Wordlist{$stop} = 1;
  62 }
  63
  64 # see for example:
  65 #  https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
  66 $ENV{LANG} = "C";
  67 $ENV{LC_ALL} = "C";
  68 for my $file (@pod) {
  69   my $check_fh = File::Temp->new;
  70   my $check_filename = $check_fh->filename;
  71   open POD, "< $file"
  72     or die "Cannot open $file for spell check: $!\n";
  73   Pod::Spell->new->parse_from_filehandle(\*POD, $check_fh);
  74   close $check_fh;
  75
  76   my @out = `aspell list <$check_filename`;
  77   unless (ok(@out == 0, "spell check $file")) {
  78     chomp @out;
  79     diag $_ for @out;
  80     print "#----\n";
  81     open my $fh, "<", $check_filename;
  82     while (<$fh>) {
  83       chomp;
  84       print "# $_\n";
  85     }
  86     print "#----\n";
  87   }
  88 }