git.maemo.org Git - pkg-perl/blob - deb-src/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/spelling.t

   1 use Test::More;
   2 use IO::File;
   3
   4 my $min_tps = 0.11;
   5 eval "use Test::Spelling $min_tps";
   6 plan skip_all => "Test::Spelling $min_tps required for testing POD" if $@;
   7 system( "ispell -v" ) and plan skip_all => "No ispell";
   8
   9 set_spell_cmd( "ispell -l" );
  10
  11 my $swf = IO::File->new('xt/stopwords.txt');
  12 my @stopwords = grep { length } map { chomp; $_ } <$swf>;
  13 add_stopwords( @stopwords );
  14
  15 all_pod_files_spelling_ok();