xt/release/pod-spell.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use Test::Requires {
   7     'Test::Spelling' => '0.01', # skip all if not installed
   8 };
   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 API
  27 metaclass
  28 mixin
  29 PayPal
  30 Rolsky