Permalink
Browse files

Confirm that adding a stopword works

  • Loading branch information...
1 parent 6aad366 commit 0d5b5e732520240c9ac2b6be76aee3a54ebd51dd @sartak sartak committed Aug 22, 2011
Showing with 40 additions and 0 deletions.
  1. +14 −0 t/corpus/stopword.pm
  2. +26 −0 t/stopword.t
View
@@ -0,0 +1,14 @@
+package Stopword::Pod;
+use strict;
+use warnings;
+
+sub foo {}
+
+__END__
+
+=head1 NAME
+
+Stopword::Pod - correctly spelled POD and a xzaue creator
+
+=END
+
View
@@ -0,0 +1,26 @@
+use Test::Tester;
+use Test::More;
+use Test::Spelling;
+
+BEGIN {
+ if (!has_working_spellchecker()) {
+ plan skip_all => "no working spellchecker found";
+ }
+}
+
+check_test(sub { pod_file_spelling_ok('t/corpus/stopword.pm', 'stopword pod file') }, {
+ ok => 0,
+ name => 'stopword pod file',
+ diag => "Errors:\n xzaue",
+});
+
+add_stopwords('xzaue');
+
+check_test(sub { pod_file_spelling_ok('t/corpus/stopword.pm', 'stopword pod file') }, {
+ ok => 1,
+ name => 'stopword pod file',
+});
+
+done_testing;
+
+

0 comments on commit 0d5b5e7

Please sign in to comment.