xt/author/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 all_pod_files_spelling_ok();
  20
  21 __DATA__
  22 metaclass
  23 Rolsky
  24 SIGNES