xt/pod-spell.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 eval 'use Test::Spelling;';
   6 plan skip_all => "Test::Spelling required for testing POD spelling" if $@;
   7
   8 my @stopwords;
   9 for (<DATA>) {
  10     chomp;
  11     push @stopwords, $_
  12         unless /\A (?: \# | \s* \z)/msx;    # skip comments, whitespace
  13 }
  14
  15 add_stopwords(@stopwords);
  16 set_spell_cmd('aspell list -l en');
  17 all_pod_files_spelling_ok();
  18
  19 __DATA__
  20 metaclass
  21 SIGNES