xt/pod-spell.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 eval "use Test::Spelling";
   7 plan skip_all => "Test::Spelling required for testing POD coverage"
   8     if $@;
   9
  10 my @stopwords;
  11 for (<DATA>) {
  12     chomp;
  13     push @stopwords, $_
  14         unless /\A (?: \# | \s* \z)/msx;    # skip comments, whitespace
  15 }
  16
  17 add_stopwords(@stopwords);
  18 set_spell_cmd('aspell list -l en');
  19
  20 # This prevents a weird segfault from the aspell command - see
  21 # https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
  22 local $ENV{LC_ALL} = 'C';
  23 all_pod_files_spelling_ok();
  24
  25 __DATA__
  26 Wiki
  27 json
  28 APIs
  29 ActionClass
  30 Daisuke
  31 Daisuke
  32 Deserialize
  33 Deserializer
  34 Deserializing
  35 Doran
  36 Goulah
  37 JSON
  38 Laco
  39 Maki
  40 Maki
  41 Marchex
  42 Pearcey
  43 Rolsky
  44 RESTful
  45 RESTful
  46 SERIALIZERS
  47 TT
  48 Wikipedia
  49 XHR
  50 XMLHttpRequest
  51 YAML
  52 conf
  53 deserialize
  54 deserialized
  55 deserializing
  56 fREW
  57 html
  58 http
  59 javascript
  60 jrockway
  61 mst
  62 namespace
  63 plugins
  64 request's
  65 serializer
  66 thusly
  67 wildcard