Skip to content
Browse files

Add spell-check test (not distributed).

  • Loading branch information...
1 parent 89853e5 commit ea8ee48269c91af444ea440ba89300bdec0e059c @theory committed Feb 18, 2011
Showing with 19 additions and 4 deletions.
  1. +5 −4 lib/Test/File/Contents.pm
  2. +14 −0 t/pod-spelling.t
View
9 lib/Test/File/Contents.pm
@@ -32,7 +32,7 @@ my $Test = Test::Builder->new;
=head1 Synopsis
- use Test::File::Contents;
+ use Test::File::Contents;
file_contents_eq $file, $string, $description;
file_contents_like $file, qr/foo/, $description;
@@ -137,9 +137,10 @@ sub file_contents_unlike($$;$) {
file_md5sum $file, $md5sum, $description;
-Checks whether a file matches a given md5 checksum. The md5sum should be
-provided as a hex string, eg. "6df23dc03f9b54cc38a0fc1483df6e21". Pass in a
-Unix-style file name and it will be converted for the local file system.
+Checks whether a file matches a given MD5 checksum. The checksum should be
+provided as a hex string, for example, C<6df23dc03f9b54cc38a0fc1483df6e21>.
+Pass in a Unix-style file name and it will be converted for the local file
+system.
=cut
View
14 t/pod-spelling.t
@@ -0,0 +1,14 @@
+#!perl -w
+
+use strict;
+use Test::More;
+eval "use Test::Spelling";
+plan skip_all => "Test::Spelling required for testing POD spelling" if $@;
+
+add_stopwords(<DATA>);
+all_pod_files_spelling_ok();
+
+__DATA__
+Kirrily
+checksum
+

0 comments on commit ea8ee48

Please sign in to comment.
Something went wrong with that request. Please try again.