X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Frelease%2Fpod-spell.t;fp=xt%2Frelease%2Fpod-spell.t;h=a989a9b9ff215a6b21c3828e1a5fdea5b4db1c47;hb=c907e388b4647afbe76f7b208c9986acd73223ab;hp=0000000000000000000000000000000000000000;hpb=0639c294522cdd6d4de99e25eda6dd3290434b39;p=gitmo%2FMooseX-StrictConstructor.git

diff --git a/xt/release/pod-spell.t b/xt/release/pod-spell.t
new file mode 100644
index 0000000..a989a9b
--- /dev/null
+++ b/xt/release/pod-spell.t
@@ -0,0 +1,27 @@
+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
+init