xt/release/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 PayPal
  27 init