Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libsub-uplevel-perl / libsub-uplevel-perl-0.1901 / xt / spelling.t

diff --git a/dev/i386/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/spelling.t b/dev/i386/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/spelling.t
new file mode 100644 (file)
index 0000000..026d550
--- /dev/null
+++ b/dev/i386/libsub-uplevel-perl/libsub-uplevel-perl-0.1901/xt/spelling.t
@@ -0,0 +1,15 @@
+use Test::More;
+use IO::File;
+
+my $min_tps = 0.11;
+eval "use Test::Spelling $min_tps";
+plan skip_all => "Test::Spelling $min_tps required for testing POD" if $@;
+system( "ispell -v" ) and plan skip_all => "No ispell";
+
+set_spell_cmd( "ispell -l" );
+
+my $swf = IO::File->new('xt/stopwords.txt');
+my @stopwords = grep { length } map { chomp; $_ } <$swf>;
+add_stopwords( @stopwords );
+
+all_pod_files_spelling_ok();