Move freetype 2 support into its own module
[imager.git] / 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 Imager
13 Imager's
14 IMAGER
15 GIF
16 JPEG
17 PNG
18 TIFF
19 BMP
20 SGI
21 TGA
22 RGB
23 ICO
24 PNM
25 bilevel
26 dpi
27 Arnar
28 Hrafnkelsson
29 API
30 paletted
31 guassian
32 metadata
33 CPAN
34 eg
35 ie
36 CMYK
37 HSV
38 CGI
39 const
40 varargs
41 FreeType
42 UTF-8
43 RGBA
44 postfix
45 infix
46 unary
47 Uncategorized
48 Blit
49 /;
50
51 local %Pod::Wordlist::Wordlist = %Pod::Wordlist::Wordlist;
52 for my $stop (@stopwords) {
53   $Pod::Wordlist::Wordlist{$stop} = 1;
54 }
55
56 # see for example:
57 #  https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
58 $ENV{LANG} = "C";
59 $ENV{LC_ALL} = "C";
60 for my $file (@pod) {
61   my $check_fh = File::Temp->new;
62   my $check_filename = $check_fh->filename;
63   open POD, "< $file"
64     or die "Cannot open $file for spell check: $!\n";
65   Pod::Spell->new->parse_from_filehandle(\*POD, $check_fh);
66   close $check_fh;
67   
68   my @out = `aspell list <$check_filename`;
69   unless (ok(@out == 0, "spell check $file")) {
70     chomp @out;
71     print "# $_\n" for @out;
72     print "#----\n";
73     open my $fh, "<", $check_filename;
74     while (<$fh>) {
75       chomp;
76       print "# $_\n";
77     }
78     print "#----\n";
79   }
80 }