add spelling test
Dave Rolsky [Wed, 14 Jul 2010 20:38:24 +0000 (15:38 -0500)]
xt/release/pod-spell.t [new file with mode: 0644]

diff --git a/xt/release/pod-spell.t b/xt/release/pod-spell.t
new file mode 100644 (file)
index 0000000..970f07c
--- /dev/null
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Spelling";
+plan skip_all => "Test::Spelling required for testing POD coverage"
+    if $@;
+
+my @stopwords;
+for (<DATA>) {
+    chomp;
+    push @stopwords, $_
+        unless /\A (?: \# | \s* \z)/msx;    # skip comments, whitespace
+}
+
+add_stopwords(@stopwords);
+set_spell_cmd('aspell list -l en');
+
+# This prevents a weird segfault from the aspell command - see
+# https://bugs.launchpad.net/ubuntu/+source/aspell/+bug/71322
+local $ENV{LC_ALL} = 'C';
+all_pod_files_spelling_ok();
+
+__DATA__
+PayPal
+affordance
+attribute's
+init